home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 12: Textmags & Docs / nf_archive_12.iso / MAGS / SOURCES / ATARI_SRC.ZIP / atari source / FALCON / ACC / DRIVERS.ACC / POPMENU.C2 < prev    next >
Encoding:
Text File  |  2001-02-10  |  79.4 KB  |  2,802 lines
  1. /* POPMENU.C
  2.  *==========================================================================
  3.  * DESCRIPTION: Generic Popup Routines ( New and Improved )
  4.  * VERSION 0.00  Started:    February 7, 1991
  5.  * VERSION 0.10            March    4, 1991
  6.  * version 1.00            April    24,1991
  7.  *                Recreated damaged files
  8.  *                Removed open workstation calls.
  9.  *                vhandle = graf_handle()
  10.  *
  11.  *
  12.  * INCLUDE: POPMENU.H
  13.  * Requires: POP_HEAD.H
  14.  *
  15.  */
  16.  
  17.  
  18.  
  19. /* INCLUDE FILES
  20.  *==========================================================================
  21.  */
  22. #include <sys\gemskel.h>
  23. #include <string.h >
  24. #include <tos.h>
  25. #include <stdlib.h>
  26. #include <stdio.h>
  27.  
  28. #include "pop_head.h"
  29. #include "device.h"
  30.  
  31.  
  32. extern int xres, yres;
  33.  
  34.  
  35. /* PROTOTYPES
  36.  *==========================================================================
  37.  */
  38. void    InitPopUpMenus( void );
  39. int    GetNewPopMenu( void );
  40. POP_PTR    GetMenuPtr( int MenuID );
  41.  
  42. BOOLEAN    InitCmdChar( POP_PTR PopPtr );
  43. void    BuildCmdChar( POP_PTR PopPtr );
  44. void    BuildKeyCodes( POP_PTR PopPtr, char *text, int num_entry );
  45. void    DeletePopUpMenu( int MenuID );
  46.  
  47. int     InsertPopUpMenu( char *text, int num_entries, int height );
  48. long    PopUpMenuSelect( int MenuID, int xpos, int ypos, int Item );
  49. BOOLEAN Pop_Blit( long *PopPtr, GRECT *xclip, int flag );
  50.  
  51.  
  52. BOOLEAN Build_Objects( POP_PTR curptr );
  53. void    SetRootNode( OBJECT *tree, int xpos, int ypos, int Width, int Num );
  54. void    SetTextNode( OBJECT *tree, int parent, POP_PTR PopPtr, int obj, int Ypos, int textnum, int Width );
  55. long    CalcTextBufferSize( POP_PTR PopPtr );
  56. void    BuildText( POP_PTR PopPtr );
  57. int    CountBlanksNeeded( char *dindex, char *dtemp, int width, int num );
  58.  
  59.  
  60. BOOLEAN    Pop_Arrow( POP_PTR PopPtr, int obj );
  61. void    UpArrowStatus( POP_PTR PopPtr );
  62. void    DownArrowStatus( POP_PTR PopPtr );
  63. void    SetArrowClickDelay( long delay );
  64.  
  65. /* KEYCODE CHECKING */
  66. long    CheckForKeyCodes( POP_PTR PopPtr, char *text, int num_entry );
  67. char    *CheckForCtrl( char *text );
  68. char    *CheckForAlt( char *text );
  69. char    *CheckForCapKey( char *text );
  70. char    *CheckForCmdKey( char *text );
  71. BOOLEAN CheckForDisable( char *text );
  72. BOOLEAN    CheckForMenuCheck( char *text );
  73. char     *CheckForSubMenu( char *text );
  74. char    *CheckForFuncKey( char *text );
  75. BOOLEAN    CheckForDuplicate( char *text );
  76.    
  77. /* APPEARANCE OF ITEMS */
  78. void    SetHeight( int MenuID, int Height );
  79. void    SetNumItems( int MenuID, int NumItems );
  80.  
  81. void    CheckItem( int MenuID, int item, BOOLEAN check );
  82. void    DisableItem( int MenuID, int item );
  83. void    EnableItem( int MenuID, int item );
  84.    
  85. void    SetItemCmd( int MenuID, int item, char cmd );
  86. char    GetItemCmd( int MenuID, int item );
  87.  
  88. void    SetSubMenuID( int MenuID, int item, int ID );
  89. int    GetSubMenuID( int MenuID, int item );
  90.  
  91. void    SetItemMark( int MenuID, int item, char key );
  92. char    GetItemMark( int MenuID, int item );
  93.  
  94. void    SetFuncMark( int MenuID, int item, int num );
  95. int     GetFuncMark( int MenuID, int item );
  96.  
  97. void    SetItem( int MenuID, int item, char *text );
  98. char    *GetItem( int MenuID, int item );
  99.  
  100. int    GetStartItem( int MenuID );
  101. void    SetStartItem( int MenuID, int item );
  102.  
  103.  
  104. /* SUBMENU HANDLING */
  105. POP_PTR    DoSubMenu( POP_PTR PopPtr, int obj );
  106. BOOLEAN    ShowSubMenu( int MenuID, int xpos, int ypos, GRECT *rect );
  107. void    HideSubMenu( POP_PTR PopPtr );
  108. long    EvntSubMenu( POP_PTR PopPtr );
  109. int    FindNum( POP_PTR PopPtr, int obj );
  110. long    MenuChoice( void );
  111.  
  112.  
  113. /* SUBMENU DELAY */
  114. long    GetTimeHz( void );
  115. void    SetSubMenuDelay( long ms );
  116. void    SetSubDragDelay( long ms );
  117.  
  118.  
  119. void    AdjustToScreen( POP_PTR PopPtr, int xpos, int ypos, GRECT *rect, BOOLEAN byte_flag, BOOLEAN Display_Flag );
  120. void    WaitForUpButton( void );
  121.  
  122. /* EXTERNALS
  123.  *==========================================================================
  124.  * These functions and variables are required and must be
  125.  * supplied externally.
  126.  */
  127.  
  128. int    BUT_OR( void );        /* Used to ensure left mouse button */
  129. extern  int   (*BADDR)( void );
  130. extern  int    BSTATE;
  131. extern  int    BREAL;
  132.  
  133.  
  134. /* DEFINES
  135.  *==========================================================================
  136.  */
  137. #define INIT_DISPLAY_DELAY  300L    /* Initial Submenu Display Delay   */ 
  138. #define INIT_DRAG_DELAY     3000L   /* Initial Submenu Drag Delay      */
  139.  
  140. #define INIT_CLICK_DELAY    150L   /* Delay for STARTING arrow scroll */
  141.  
  142. #define STLOW    2
  143. #define STMED    3
  144.  
  145. #define MAX_MENUS    50       /* Maximum # of Menus allowed...*/
  146. #define UP_ARROW    0x01
  147. #define DOWN_ARROW    0x02
  148. #define RIGHT_ARROW    0x03
  149.  
  150.  
  151.  
  152. /* GLOBAL
  153.  *==========================================================================
  154.  */
  155. POP_NODE MenuList[ MAX_MENUS ];        /* Menu structure Storage */
  156. BOOLEAN  free_flag[ MAX_MENUS ];
  157.  
  158. char *KeyText[] = { "HOME",        /* Text for menu items using these*/
  159.             "HELP",        /* as keyboard shortcuts...       */
  160.             "UNDO",
  161.             "ESC",
  162.             "INSERT",
  163.             "CLR",
  164.             "DEL",
  165.             "TAB",
  166.             "ENTER",
  167.             "RETURN"
  168.           };
  169.  
  170.  
  171. char CmdText[ 10 ];        /* Temp string storage...       */
  172. char TempString[ 255 ];
  173. int  xout[57];            /* used for vq_extnd() */
  174.  
  175.  
  176. long SUBMENU_DELAY;        /* Delay time for submenus to appear ( ms )    */
  177. long SUBDRAG_DELAY;        /* Delay time for submenus to go active( ms)   */
  178. long CLICK_DELAY;        /* Delay time for arrows to start scrolling(ms)*/
  179. long TimeInHz;            /* Current Time in 200 Hz */
  180.  
  181.                 /* Used by the MenuChoice() call         */
  182. int  CurObject;            /* Current Object clicked on. ( Global ) */
  183. int  CurMenu;            /* Current Menu clicked on. ( Global )   */
  184.  
  185.  
  186. /* FUNCTIONS
  187.  *==========================================================================
  188.  */
  189.  
  190.  
  191. /* InitPopMenus()
  192.  * ====================================================================
  193.  * Simply clears out the flags in the free_flags structure.
  194.  */
  195. void
  196. InitPopUpMenus( void )
  197. {
  198.    int i;
  199.    
  200.    for( i = 0; i < MAX_MENUS; i++ )
  201.       free_flag[ i ] = FALSE;
  202.    SetSubMenuDelay( INIT_DISPLAY_DELAY );
  203.    SetSubDragDelay( INIT_DRAG_DELAY );        
  204.    SetArrowClickDelay( INIT_CLICK_DELAY );
  205. }
  206.  
  207.  
  208.  
  209. /* InsertPopMenu()
  210.  * ====================================================================
  211.  * Returns: Pointer to the POPUP structure.
  212.  * IN:   
  213.  *       XHEIGHT ( in characters ) - actually, number of entries displayed
  214.  *     NUM_ENTRIES           - Total # of menu entries.
  215.  *     Pointer to text address...
  216.  * OUT: # >= 0    Valid Menu ID
  217.  *      # < 0     Error messages.
  218.  *                -1 = Memory Allocation Error.
  219.  *          -2 = No more Menu Slots available.
  220.  */
  221. int
  222. InsertPopUpMenu( char *text, int num_entries, int height )
  223. {
  224.     POP_PTR PopPtr;
  225.     int     MenuID;
  226.     
  227.     MenuID = GetNewPopMenu();
  228.     
  229.     /* No more menu slots available.*/
  230.     if( MenuID == -1 )
  231.        return( -2 );
  232.  
  233.     PopPtr = GetMenuPtr( MenuID );
  234.     PPREV( PopPtr )   = ( POP_PTR )NULL;
  235.        
  236.     PMENUID( PopPtr ) = MenuID;     
  237.     PXPOS( PopPtr )   = PYPOS( PopPtr ) = 0;
  238.     PNUM( PopPtr )    = num_entries;
  239.     POBJECT( PopPtr ) = ( OBJECT *)NULL;
  240.     
  241.     /* Take care of height of menu */ 
  242.     if( height > PNUM( PopPtr ) )
  243.         height = PNUM( PopPtr );
  244.     PHEIGHT( PopPtr )     = height;
  245.     PIX_HEIGHT( PopPtr )  = ( PHEIGHT( PopPtr ) * gl_hchar );
  246.     PTEXT( PopPtr )       = text;
  247.     
  248.     if( !InitCmdChar( PopPtr ))
  249.     {
  250.        /* If memory error, clear out the Menu Slot
  251.         * and return a -1.
  252.         */
  253.        free_flag[ MenuID ] = FALSE;       
  254.        MenuID = -1;
  255.     }
  256.     return( MenuID );
  257. }
  258.  
  259.  
  260.  
  261. /* GetNewPopMenu()
  262.  * ====================================================================
  263.  * Find an unused slot for a menu.
  264.  * RETURN( -1 ) if there are no more menu slots available.
  265.  */
  266. int
  267. GetNewPopMenu( void )
  268. { 
  269.     int i;
  270.     
  271.     for( i = 0; i < MAX_MENUS; i++ )
  272.     {
  273.     if( !free_flag[ i ] )
  274.     {
  275.        free_flag[i] = TRUE;
  276.        return( i );
  277.     }   
  278.     }
  279.     return( -1 );
  280. }
  281.  
  282.  
  283.  
  284.  
  285. /* GetMenuPtr()
  286.  * ====================================================================
  287.  * Returns a pointer to the Menu Structure if given a valid menuID
  288.  */
  289. POP_PTR
  290. GetMenuPtr( int MenuID )
  291. {
  292.     return( ( POP_PTR )&MenuList[ MenuID ] );
  293. }
  294.  
  295.  
  296.  
  297. /* InitCmdChar()
  298.  * ====================================================================
  299.  * Initializes the CmdChar memory for a menu structure.
  300.  * The memory is MALLOCed! So the application MUST call
  301.  * DeletePopMenu() for each menu created. OR ELSE...!
  302.  * Need to check for malloc failures.
  303.  * RETURN: FALSE = ERROR!
  304.  *       TRUE  = AOK!
  305.  * It will be up to the program to inform the user that
  306.  * no menu was created and initialized.
  307.  */
  308. BOOLEAN
  309. InitCmdChar( POP_PTR PopPtr )
  310. {
  311.     int i;
  312.     
  313.     PCmdChar( PopPtr ) = ( CmdChar *)malloc( (long)( (long)PNUM( PopPtr ) + 10L ) * (long)sizeof( CmdChar ));
  314.     /* We go up to + 2 because we have ...
  315.      * PNUM() = UP ARROW TEXT
  316.      * PNUM+1 = DOWN ARROW TEXT
  317.      * PNUM+2 = BLANK TEXT
  318.      */
  319.     if( PCmdChar( PopPtr ) )
  320.     { 
  321.       for( i = 0; i <= ( PNUM( PopPtr ) + 2 ); i++ )
  322.       {
  323.          CmdState( PopPtr->CharPtr[ i ] ) = NORMAL;
  324.          CmdSubMenu( PopPtr->CharPtr[ i ] ) = -1;
  325.          CmdFlag( PopPtr->CharPtr[i] ) = '\0';
  326.       }
  327.       
  328.       BuildCmdChar( PopPtr );
  329.       return( TRUE );
  330.     }
  331.     else
  332.       return( FALSE );
  333. }
  334.  
  335.  
  336.  
  337.  
  338. /* BuildCmdChar()
  339.  * ====================================================================
  340.  * Calculate the text buffer size that we'll have to malloc, based upon
  341.  * the largest text string and the number of entries.
  342.  */
  343. void
  344. BuildCmdChar( POP_PTR PopPtr )
  345. {
  346.    char *txtptr;
  347.    long length;
  348.    int  count;
  349.    
  350.    txtptr = PTEXT( PopPtr );
  351.    if( txtptr )
  352.    {
  353.        for( count = 0; count < PNUM( PopPtr ); count++ )
  354.        {    
  355.          length = strlen( txtptr );
  356.          BuildKeyCodes( PopPtr, txtptr, count );
  357.          txtptr += ( length + 1 );
  358.        }
  359.    }
  360. }
  361.  
  362.  
  363.  
  364.  
  365.  
  366. /* BuildKeyCodes()
  367.  * =====================================================================
  368.  * Checks the text string for various keycodes and subtracts
  369.  * an appropriate amount from the length if any are found.
  370.  * For many of these, there should only be one of them.
  371.  * We then ADD back in the amount of ACTUAL text usage this item
  372.  * would take. IE: a Function Key can be F10 so 3 characters...
  373.  * or a CmdKey can be the letters: 'DELETE' 6 characters added.
  374.  * This will also fill up the CMDCHAR structures.
  375.  */
  376. void
  377. BuildKeyCodes( POP_PTR PopPtr, char *text, int num_entry )
  378. {
  379.     char *txtptr;
  380.  
  381.     if( ( txtptr = CheckForCtrl( text )) != NULL )
  382.     {
  383.         CmdFlag( PopPtr->CharPtr[ num_entry ] ) = '^';
  384.         CmdHotKey( PopPtr->CharPtr[ num_entry ] ) = *( ++txtptr );
  385.     }
  386.     
  387.     
  388.     if( ( txtptr = CheckForAlt( text ) ) != NULL )
  389.     {
  390.          CmdFlag( PopPtr->CharPtr[ num_entry ] ) = '&';
  391.          CmdHotKey( PopPtr->CharPtr[ num_entry ] ) = *( ++txtptr );
  392.     }
  393.          
  394.     if( ( txtptr = CheckForCapKey( text ) ) != NULL )
  395.     {
  396.          CmdFlag( PopPtr->CharPtr[ num_entry ] ) = '|';
  397.          CmdHotKey( PopPtr->CharPtr[ num_entry ] ) = *( ++txtptr );
  398.     }
  399.     
  400.     if( ( txtptr = CheckForCmdKey( text ) ) != NULL )
  401.     {
  402.         /* We ACKNOWLEDGE -----
  403.          * [H] HELP    [U] Undo    [E] Escape    [I] Insert
  404.          * [D] DEL    [C] Clr        [h] Home    [T] TAB
  405.          * [e] ENTER    [R] RETURN
  406.          */
  407.         CmdFlag( PopPtr->CharPtr[ num_entry ] ) = '$';
  408.         CmdHotKey( PopPtr->CharPtr[ num_entry ] ) = *( ++txtptr ); 
  409.     }
  410.     
  411.     
  412.     /* Check for the '@' character which will tell us to
  413.      * disable the current menu item that we are working on.
  414.      */
  415.     
  416.     if( CheckForDisable( text ) )
  417.       DisableItem( PMENUID( PopPtr ), num_entry );
  418.     else   
  419.       EnableItem( PMENUID( PopPtr ), num_entry );
  420.  
  421.     /* Check for CheckMark  ( ! ) */
  422.     CheckItem( PMENUID( PopPtr ), num_entry, CheckForMenuCheck( text ) );
  423.  
  424.     if( ( txtptr = CheckForSubMenu( text ) ) != NULL )
  425.     {
  426.     CmdFlag( PopPtr->CharPtr[ num_entry ] ) = '~';
  427.     txtptr++;
  428.     CmdSubMenu( PopPtr->CharPtr[ num_entry ] ) = atoi( txtptr );
  429.     } 
  430.     
  431.     if( ( txtptr = CheckForFuncKey( text ) ) != NULL )
  432.     {
  433.         CmdFlag( PopPtr->CharPtr[ num_entry ] ) = '#';
  434.         txtptr++;
  435.         CmdFuncKey( PopPtr->CharPtr[ num_entry ] ) = atoi( txtptr );
  436.     }
  437.     
  438.     if( CheckForDuplicate( text ) )
  439.         CmdFlag( PopPtr->CharPtr[ num_entry ] ) = '*';
  440. }
  441.  
  442.  
  443.  
  444.  
  445.  
  446.  
  447. /* DeletePopUpMenu()
  448.  * ====================================================================
  449.  */
  450. void
  451. DeletePopUpMenu( int MenuID )
  452. {
  453.    POP_PTR PopPtr;
  454.    
  455.    if( free_flag[ MenuID ] )
  456.    {
  457.      free_flag[ MenuID ] = FALSE;
  458.      PopPtr = GetMenuPtr( MenuID );
  459.      
  460.      if( PCmdChar( PopPtr ) )
  461.        free( PCmdChar( PopPtr ) );
  462.        
  463.      PCmdChar( PopPtr ) = ( CmdChar *)NULL;
  464.    }  
  465. }
  466.  
  467.  
  468.  
  469.  
  470. /* PopUpMenuSelect()
  471.  * ====================================================================
  472.  * Displays the actual popup menu.
  473.  * Let's the user select an object.
  474.  * IN:   POP_PTR PopPtr;
  475.  *       int     xpos;
  476.  *       int     ypos;
  477.  *       int     Start_Obj;  Index to show selected else start with 0
  478.  *       BOOLEAN Arrow_Flag; If TRUE, display arrows if height < num_items.
  479.  *                    FALSE, don't display arrows if height < num_items.
  480.  * returns:  long where....
  481.  *        HIGH WORD    LOW WORD
  482.  *         MenuID          Item Selected.
  483.  *           -1L if NONE selected.
  484.  *         If the MenuID is valid, but the item is -1, then
  485.  *         the user clicked on a disabled menu item.
  486.  *         -2L if Memory Allocation Error
  487.  *         -3L if workstation error.
  488.  */
  489. long
  490. PopUpMenuSelect( int MenuID, int xpos, int ypos, int Item )
  491. {
  492.     
  493.     long    obj;
  494.     POP_PTR PopPtr;
  495.     GRECT   rect;
  496.     MRETS   mk;
  497.     int     max_height;
  498.         
  499.     WaitForUpButton();
  500.     wind_update( BEG_MCTRL );
  501.  
  502.     open_vwork();
  503.     vq_extnd( vhandle, 0, xout );
  504.     xres = xout[0];
  505.     yres = xout[1];    
  506.  
  507.     vex_butv( vhandle, BUT_OR, &BADDR );    
  508.     
  509.     PopPtr = GetMenuPtr( MenuID );
  510.     PopUpItem( PopPtr ) = Item;
  511.  
  512.     PXPOS( PopPtr )   = xpos;
  513.     PYPOS( PopPtr )   = ypos;
  514.     PPREV( PopPtr )   = ( POP_PTR )NULL;
  515.  
  516.     /* Take care of height of menu */ 
  517.     if( PHEIGHT( PopPtr ) > PNUM( PopPtr ) )
  518.         PHEIGHT( PopPtr ) = PNUM( PopPtr );
  519.  
  520.     /* Limit Height to Height of screen - ( 2 * gl_hchars ) */
  521.     max_height = yres - ( 2 * gl_hchar );
  522.     while( ( PHEIGHT( PopPtr ) * gl_hchar ) > max_height )
  523.        PHEIGHT( PopPtr ) -= 1;
  524.  
  525.     PIX_HEIGHT( PopPtr )  = ( PHEIGHT( PopPtr ) * gl_hchar );
  526.  
  527.        
  528.     /* Take care of the width of the menu here...*/
  529.     PTEXTBUFFSIZE( PopPtr ) = CalcTextBufferSize( PopPtr );
  530.     PIX_WIDTH( PopPtr )     = ( PWIDTH( PopPtr ) * gl_wchar );
  531.  
  532.     AdjustToScreen( PopPtr, xpos, ypos, &rect, FALSE, TRUE );
  533.     if( Pop_Blit( (long *)&PMEM( PopPtr ), &PObRect( PopPtr ), 0 ) )
  534.     {
  535.        if( Build_Objects( PopPtr ) )
  536.        {
  537.          obj = EvntSubMenu( PopPtr );
  538.          if( obj == -2L ) /* returning from a submenu - error */
  539.              obj = -1L;    /* then set it to click on nothing */
  540.          Pop_Blit( (long *)&PMEM( PopPtr ), &PObRect( PopPtr ), 1 );
  541.        }
  542.        else    /* Memory Allocation Error in Space Capsule */
  543.          obj = -2L;  
  544.  
  545.        if( POBJECT( PopPtr ) )
  546.            free( POBJECT( PopPtr ) );
  547.         
  548.        if( PTEXTBUFF( PopPtr ) )    
  549.            free( PTEXTBUFF( PopPtr ) );
  550.         
  551.     }
  552.     else    /* ERROR: Memory Allocation Error */
  553.       obj = -2L;
  554.  
  555.     POBJECT( PopPtr )   = ( OBJECT *)NULL;
  556.     PTEXTBUFF( PopPtr ) = ( char *)NULL;
  557.     
  558.     Evnt_button( 1, 1, 0, &mk );
  559.  
  560.     vex_butv( vhandle, BADDR, &BADDR );
  561.     close_vwork();
  562.     
  563.     wind_update( END_MCTRL );
  564.  
  565.     return( obj );
  566. }
  567.  
  568.  
  569.  
  570.  
  571. /* Build_Objects()
  572.  * ====================================================================
  573.  * RETURN: TRUE - AOK
  574.  *         FALSE- Memory Allocation Error
  575.  */
  576. BOOLEAN
  577. Build_Objects( POP_PTR PopPtr )
  578. {
  579.    int     num_objects;
  580.    GRECT   rect;
  581.    int     text_index;        /* Index into the text data 0 based */
  582.    int     count;
  583.    int     ypos;        /* Y position of object ( in characters*/
  584.    int     temp;
  585.           
  586.    OBJECT *tree;
  587.    int    obj;
  588.  
  589.    /* Calculate the number of objects needed...
  590.     * ROOT + # of STRINGS + ( safety buffer )
  591.     */
  592.    num_objects = 1 + PHEIGHT( PopPtr ) + 10; /* + 10 for safety buffer */
  593.  
  594.    /* get the memory for this number of objects */   
  595.    POBJECT( PopPtr ) = ( OBJECT * )malloc( (long)(sizeof( OBJECT ) * (long)num_objects )); 
  596.     
  597.    /* Malloc the text memory and then build them. */
  598.    /* Need malloc checking of course...           */
  599.    PTEXTBUFF( PopPtr) = malloc( PTEXTBUFFSIZE( PopPtr ) );
  600.    
  601.    /* Memory Allocation Error */
  602.    if( !POBJECT( PopPtr ) || !PTEXTBUFF( PopPtr ) )
  603.        return( FALSE );
  604.  
  605.    BuildText( PopPtr );
  606.  
  607.        
  608.    /* setup the root */
  609.    tree = POBJECT( PopPtr );
  610.    SetRootNode( tree, PXPOS( PopPtr ), PYPOS( PopPtr ),
  611.                 PWIDTH( PopPtr ), PHEIGHT( PopPtr ) );
  612.    
  613.    ypos = text_index = 0;
  614.    
  615.    obj = 1;            /* Start Creating from object 1 */
  616.    PFIRST( PopPtr ) = 1;    /* first G_STRING starts at 3   */
  617.  
  618.    POFFSET( PopPtr )   = ( PopUpItem( PopPtr ) + ( PNUM( PopPtr ) > PHEIGHT( PopPtr ) )) / PHEIGHT( PopPtr );
  619.  
  620.    if( POFFSET( PopPtr ) )
  621.    {
  622.        POFFSET( PopPtr ) = PopUpItem( PopPtr );
  623.        temp = PNUM( PopPtr ) - PHEIGHT( PopPtr ) + 1;
  624.  
  625.        if( POFFSET( PopPtr ) >= temp )
  626.            POFFSET( PopPtr ) = temp;
  627.    }      
  628.    text_index = POFFSET( PopPtr );
  629.    
  630.    for( count = 0; count < PHEIGHT( PopPtr ); count++ )
  631.    {
  632.       if( count == 0 )
  633.       {
  634.        if( POFFSET( PopPtr ) )
  635.              SetTextNode( tree, ROOT, PopPtr, obj++, ypos++, PNUM( PopPtr ), PWIDTH( PopPtr ) );
  636.            else  
  637.            {
  638.              if( CmdState( PopPtr->CharPtr[ text_index ] ) & CHECKED )
  639.                  CheckObj( obj );
  640.              SetTextNode( tree, ROOT, PopPtr, obj++, ypos++, text_index++, PWIDTH( PopPtr ) );
  641.            }  
  642.       }  
  643.       else
  644.       {
  645.         if( count >=  ( PHEIGHT( PopPtr ) - 1 ) )
  646.         {
  647.            if( ( POFFSET( PopPtr ) + PHEIGHT( PopPtr ) ) < PNUM( PopPtr ) )
  648.               SetTextNode( tree, ROOT, PopPtr, obj++, ypos++, PNUM( PopPtr ) + 1, PWIDTH( PopPtr ) );
  649.            else
  650.            {
  651.               if( CmdState( PopPtr->CharPtr[ text_index ] ) & CHECKED )
  652.                  CheckObj( obj );
  653.  
  654.               SetTextNode( tree, ROOT, PopPtr, obj++, ypos++, text_index++, PWIDTH( PopPtr ) );
  655.            }   
  656.         }
  657.         else      
  658.         {
  659.            if( CmdState( PopPtr->CharPtr[ text_index ] ) & CHECKED )
  660.                CheckObj( obj );
  661.  
  662.            SetTextNode( tree, ROOT, PopPtr, obj++, ypos++, text_index++, PWIDTH( PopPtr ) );
  663.         } 
  664.       }
  665.    }   
  666.    PLAST( PopPtr ) = obj - 1;
  667.    ObFlags( obj - 1 ) = LASTOB;
  668.  
  669.    rect = ObRect( ROOT );
  670.    rect.g_x -= 2;
  671.    rect.g_y -= 2;
  672.    rect.g_w += 5;
  673.    rect.g_h += 5;
  674.    rc_intersect( &desk, &rect );        /* clip to desktop */
  675.    Objc_draw( tree, ROOT, MAX_DEPTH, &rect );
  676.    return( TRUE );
  677. }
  678.  
  679.  
  680.  
  681. /* SetRootNode()
  682.  * ====================================================================
  683.  */
  684. void
  685. SetRootNode( OBJECT *tree, int xpos, int ypos, int Width, int Num )
  686. {
  687.     ObNext( ROOT )  = -1;
  688.     ObHead( ROOT )  = -1;
  689.     ObTail( ROOT )  = -1;
  690.     ObType( ROOT )  = G_BOX;
  691.     ObFlags( ROOT ) = NONE;
  692.     ObState( ROOT ) = SHADOWED;
  693.     ObIndex( ROOT ) = 0xFF1100L;
  694.  
  695.     /* fix up for screen...*/
  696.     ObX( ROOT ) = xpos;
  697.     ObY( ROOT ) = ypos;
  698.     ObW( ROOT ) = Width * gl_wchar;
  699.     ObH( ROOT ) = Num * gl_hchar;
  700. }
  701.  
  702.  
  703.  
  704. /* SetTextNode()
  705.  * ====================================================================
  706.  */
  707. void
  708. SetTextNode( OBJECT *tree, int parent, POP_PTR PopPtr, int obj, int Ypos, int textnum, int Width )
  709. {
  710.        ObNext( obj ) = -1;
  711.        ObHead( obj ) = -1;
  712.        ObTail( obj ) = -1;
  713.  
  714.        ObType( obj )   = G_STRING;
  715.        ObFlags( obj )  = NONE;
  716.        
  717.        ObString( obj ) = &PTEXTBUFF( PopPtr )[ ( PWIDTH( PopPtr ) + 1 ) * textnum ];
  718.  
  719.        ObState( obj )  = CmdState( PopPtr->CharPtr[ textnum ] );
  720.  
  721.        ObX( obj )      = 0;
  722.        ObY( obj )      = Ypos * gl_hchar;
  723.        ObW( obj )      = Width * gl_wchar;
  724.        ObH( obj )      = gl_hchar;
  725.        objc_add( tree, parent, obj );
  726. }
  727.  
  728.  
  729.  
  730.  
  731. /* CalcTextBufferSize()
  732.  * ====================================================================
  733.  * Calculate the text buffer size that we'll have to malloc, based upon
  734.  * the largest text string and the number of entries.
  735.  */
  736. long
  737. CalcTextBufferSize( POP_PTR PopPtr )
  738. {
  739.    char *xptr;
  740.    long size;
  741.    long xsize;
  742.    long actual;
  743.    int  i;
  744.    
  745.    size = 0L;
  746.    PWIDTH( PopPtr ) = 0;
  747.    xptr = ( char *)NULL;
  748.    xptr = PTEXT( PopPtr );
  749.    if( xptr )
  750.    {
  751.        for( i = 0; i < PNUM( PopPtr ); i++ )
  752.        {    
  753.          xsize = strlen( xptr );
  754.          actual = CheckForKeyCodes( PopPtr, xptr, i );
  755.          if( actual > size )
  756.             size = actual;
  757.          xptr += ( xsize + 1 );
  758.  
  759.          /* Get's us past the nulls to the head of the next string */
  760.          while( !( *xptr ) )
  761.            xptr++;         
  762.        }
  763.        /* size-> now contains the length of the longest string. */
  764.        size += 1;              /* for a blank after...*/
  765.        size += 2;           /* for 2 blanks before the string*/
  766.        /* Number of characters in our longest string...*/
  767.        PWIDTH( PopPtr ) = (int)size;
  768.  
  769.        size += 1;            /* for the null.       */
  770.        size += 10;            /* for the Control Keys or RT Arrow */
  771.        size *= PNUM( PopPtr );  /* For the number of entries. */
  772.        size += ( size / 2 );    /* Buffer area, just in case  */  
  773.    }
  774.    return( size );
  775. }
  776.  
  777.  
  778. /* BuildText()
  779.  * ====================================================================
  780.  * Takes the pointer to the menu_text given by the program and
  781.  * builds the text in the memory buffer where...
  782.  *  1) 2 spaces before each text string.
  783.  *  2) 1 space after the longest string.
  784.  *  3) pads spaces after shorter strings to match the longest string.
  785.  *  4) Null terminates each string.
  786.  *  5) *# - The char following is duplicated the width of the menu.
  787.  *        Characters following it are ignored to the end of the string.
  788.  *        example: *-    The line is filled with "---------"
  789.  *  6) @  - means to disable this menu item
  790.  *  7) /# - means that there is a keycode: ie: /T ==   [T]
  791.  *  8) ## - means that there is a function key.  #10 is F10
  792.  *  9) ^# - means that there is a ctrl key:  ^H
  793.  * 10) $# - means that there is a CmdKey: ie: $H = HELP ( 4 chars )
  794.  *     We ACKNOWLEDGE -----
  795.  *     [H] HELP    [U] Undo    [E] Escape    [I] Insert
  796.  *     [D] DEL        [C] Clr        [h] Home    [T] TAB
  797.  *     [e] ENTER    [R] RETURN
  798.  *
  799.  * 11) &# - means that there is an ALT Key:  &A - Alt A
  800.  * 12) ~# - means that there is a submenu: ~1 - attach submenu 1
  801.  * 13) !  - means that the menu item is CHECKED.
  802.  */
  803. void
  804. BuildText( POP_PTR PopPtr )
  805. {
  806.    char *sindex;        /* Pointer to source text...    */
  807.    char *stemp;            /* Pointer INTO source text     */
  808.    char *dindex;        /* Pointer to destination text  */
  809.    char *dtemp;            /* Pointer INTO destination text*/
  810.    int  num_entries;        /* Number of entries counter... */
  811.    int  num;
  812.    int  num2;
  813.    long length;            /* length of a string...    */
  814.    long i;            /* temp variable...        */
  815.    
  816.    if( !PTEXTBUFF( PopPtr ) )    /* if there is no destination buffer...*/
  817.        return;            /* skip doing all of this...           */
  818.           
  819.    sindex = PTEXT( PopPtr );
  820.    dindex = PTEXTBUFF( PopPtr );
  821.  
  822.    for( num_entries = 0; num_entries <= PNUM( PopPtr ); num_entries++ )
  823.    {
  824.      if( num_entries < PNUM( PopPtr ) )
  825.      {
  826.      
  827.        if( ( stemp = strchr( sindex, '*' )) != NULL )
  828.        {
  829.          /* Check for a '*' character. The character following
  830.           * will be extened the length of the string.
  831.           * All characters following after that will be ignored.
  832.           */
  833.          stemp++;     /* gets us to the item we want to duplicate */ 
  834.          dtemp = dindex; /* get a ptr to the destination             */
  835.  
  836.      /* Duplicate the character to the proper width wanted...*/         
  837.          for( i = 0; i < PWIDTH( PopPtr ); i++ )
  838.             *dtemp++ = *stemp;
  839.          *dtemp = '\0';       /* NULL terminate the string */
  840.        }  
  841.        else
  842.        {
  843.          strcpy( dindex, "  " );    /* Pad the entry with 2 blanks */
  844.          stemp = sindex;        /* Get a pointer to the source */
  845.          dtemp = dindex+2;        /* Get a pointer to the dest...*/
  846.  
  847.      /* Copy the source string to the destination buffer
  848.       * skipping the HOT chars that will allow submenus,
  849.       * disabling menus, keycodes etc.
  850.       */
  851.      while( *stemp )
  852.      {
  853.         switch( *stemp )
  854.         {
  855.            case '@': /* Disable menu item */
  856.            case '!': /* CheckMark menu item */
  857.                     stemp++;
  858.                     break;
  859.     
  860.            case '^': /* Ctrl Key */
  861.            case '&': /* Alt Key  */
  862.            case '|': /* Cap Key  */
  863.            case '$': /* CmdKey   */
  864.            case '~': /* Submenu  */
  865.                     stemp += 2;
  866.                     break;
  867.                     
  868.            case '#': /* FuncKey  */
  869.                     stemp += 2;
  870.                     num = CmdFuncKey( PopPtr->CharPtr[ num_entries ] );
  871.                     if( num > 9 )
  872.                        stemp++;
  873.                     break;
  874.                             
  875.            default: *dtemp++ = *stemp++;
  876.                    break;
  877.         }
  878.      }
  879.  
  880.      /* Now add in the necessary text for the Keycodes..*/
  881.          switch( CmdFlag( PopPtr->CharPtr[ num_entries ] ) )
  882.          {
  883.            case '^': /* Ctrl Key */
  884.            case '&': /* Alt Key  */
  885.              num = CountBlanksNeeded( dindex, dtemp, PWIDTH( PopPtr ), 2 );
  886.              for( i = 0; i < num; i++ )                    
  887.                 *dtemp++ = ' ';     /* add a space */
  888.                      *dtemp++ = (( CmdFlag( PopPtr->CharPtr[ num_entries ] ) == '^' ) ? ( '^' ) : ( 0x07 ) );   
  889.                      *dtemp++ = CmdHotKey( PopPtr->CharPtr[ num_entries ] );
  890.                     break;
  891.                     
  892.            case '|': /* Cap Key  */
  893.              num = CountBlanksNeeded( dindex, dtemp, PWIDTH( PopPtr ), 3 );
  894.              for( i = 0; i < num; i++ )                    
  895.                 *dtemp++ = ' ';     /* add a space */
  896.                     *dtemp++ = '[';
  897.                     *dtemp++ = CmdHotKey( PopPtr->CharPtr[ num_entries ] );
  898.                     *dtemp++ = ']';
  899.                     break;
  900.                     
  901.            case '$': /* CmdKey   */
  902.                     switch( CmdHotKey( PopPtr->CharPtr[ num_entries ] ) )
  903.                     {
  904.                        case 'h': /* Home */
  905.                                  strcpy( &CmdText[0], KeyText[0] ); 
  906.                                  break;
  907.                                  
  908.                        case 'H': /* HELP */
  909.                                  strcpy( &CmdText[0], KeyText[1] );
  910.                                  break;
  911.                                  
  912.                        case 'U': /* Undo */
  913.                                  strcpy( &CmdText[0], KeyText[2] );
  914.                                  break;
  915.                                  
  916.                        case 'E': /* Escape*/
  917.                                  strcpy( &CmdText[0], KeyText[3] );
  918.                                  break;
  919.                                  
  920.                        case 'I': /* Insert */
  921.                                  strcpy( &CmdText[0], KeyText[4] );
  922.                                  break;
  923.                                  
  924.                        case 'C': /* Clr */
  925.                                  strcpy( &CmdText[0], KeyText[5] );
  926.                                  break;
  927.                                  
  928.                        case 'D': /* Delete */
  929.                                  strcpy( &CmdText[0], KeyText[6] );
  930.                                  break;
  931.                                  
  932.                 case 'T': /* TAB    */
  933.                           strcpy( &CmdText[0], KeyText[7] );
  934.                            break;
  935.  
  936.                 case 'e': /* ENTER  */
  937.                           strcpy( &CmdText[0], KeyText[8] );
  938.                            break;
  939.  
  940.                 case 'R': /* RETURN */        
  941.                           strcpy( &CmdText[0], KeyText[9] );
  942.                            break;
  943.  
  944.                        default:  CmdText[0] = '\0';
  945.                                  break;
  946.                     }
  947.                     num = (int)strlen( &CmdText[0] );
  948.              num = CountBlanksNeeded( dindex, dtemp, PWIDTH( PopPtr ), num );
  949.              for( i = 0; i < num; i++ )                    
  950.                 *dtemp++ = ' ';     /* add a space */
  951.              *dtemp = '\0';   
  952.              strcat( dindex, &CmdText[0] );
  953.              length = strlen( dindex );
  954.              dtemp = dindex + length;             
  955.                     break;
  956.                     
  957.            case '#': /* FuncKey  */
  958.              num = CmdFuncKey( PopPtr->CharPtr[ num_entries ] );
  959.              num = (( num < 10 ) ? ( 2 ) : ( 3 ) );
  960.              num2 = CountBlanksNeeded( dindex, dtemp, PWIDTH( PopPtr ), num );
  961.              for( i = 0; i < num2; i++ )                    
  962.                 *dtemp++ = ' ';     /* add a space */
  963.                     *dtemp++ = 'F';
  964.                     num = CmdFuncKey( PopPtr->CharPtr[ num_entries ] );
  965.                     if( num < 10 )
  966.                        *dtemp++ = num + '0';
  967.                     else    /* handle special case for F10 */
  968.                     {
  969.                        *dtemp++ = '1';
  970.                        *dtemp++ = '0';
  971.                     }   
  972.                     break;
  973.  
  974.           case '~': /* Submenu */
  975.             num = CountBlanksNeeded( dindex, dtemp, PWIDTH( PopPtr ), 2 );
  976.             for( i = 0; i < num; i++ )                    
  977.                 *dtemp++ = ' ';     /* add a space */
  978.                     *dtemp++ = RIGHT_ARROW;    /* Right Arrow */   
  979.                     *dtemp++ = ' ';
  980.                     break;
  981.                              
  982.              default:
  983.                        break;
  984.      }
  985.      *dtemp = '\0';         
  986.       
  987.            /* Get the length of the destination string and
  988.             * pad it with blanks to make it the width of 
  989.             * the final string wanted.
  990.             */
  991.          length = strlen( dindex );
  992.          for( i = length; i < PWIDTH( PopPtr ); i++ )
  993.             strcat( dindex, " " );
  994.             
  995.        }
  996.        /* Get the length of the actual string and
  997.         * advance it to the next string skipping the NULL
  998.         * and moving to the first char of the next string.
  999.         */
  1000.        length = strlen( sindex );
  1001.        sindex = sindex + length + 1;
  1002.        
  1003.        /* Advance us thru the nulls to the start of the next string*/
  1004.        while( !(*sindex) )
  1005.          sindex++;
  1006.  
  1007.        /* Advance dest to end of the new string */   
  1008.        dindex = dindex + PWIDTH( PopPtr ) + 1;
  1009.      }
  1010.      else
  1011.      {
  1012.        /* The PNUM() menu item will have an UP Arrow in its text */
  1013.        strcpy( dindex, " " );
  1014.        for( i = 1; i < PWIDTH( PopPtr ); i++ )
  1015.           strcat( dindex, " " );  
  1016.        *(dindex + 2 ) = UP_ARROW;    /* UP ARROW */
  1017.           
  1018.        /* The PNUM() + 1 menu item will have a DOWN Arrow in its text */
  1019.        dindex = dindex + PWIDTH( PopPtr ) + 1;
  1020.        strcpy( dindex, " " );
  1021.        for( i = 1; i < PWIDTH( PopPtr ); i++ )
  1022.           strcat( dindex, " " );  
  1023.        *(dindex + 2 ) = DOWN_ARROW;    /* DOWN ARROW */       
  1024.        
  1025.        /* The PNUM() + 2 menu item will have a blank string in its text*/
  1026.        dindex = dindex + PWIDTH( PopPtr ) + 1;
  1027.        strcpy( dindex, " " );
  1028.        for( i = 1; i < PWIDTH( PopPtr ); i++ )
  1029.           strcat( dindex, " " );  
  1030.      }     
  1031.    }
  1032. }
  1033.  
  1034.  
  1035.  
  1036. /* CountBlanksNeeded()
  1037.  * ====================================================================
  1038.  * Counts the number of blanks to go between the menu item and the
  1039.  * control key or whatever.
  1040.  */
  1041. int
  1042. CountBlanksNeeded( char *dindex, char *dtemp, int width, int num )
  1043. {
  1044.     long length;
  1045.     
  1046.     *dtemp   = '\0';
  1047.     length = strlen( dindex );
  1048.     return( width - 1 - (int)length - num );
  1049. }
  1050.  
  1051.  
  1052.  
  1053.  
  1054. /* Pop_Arrow()
  1055.  *==========================================================================
  1056.  * Scroll the popup menu items if up or down arrow is selected.
  1057.  * 
  1058.  * IN: int obj:        up or down arrow is selected.
  1059.  *     int *offset:    Offset into the menu items text array
  1060.  *     int num_items:   Total number of menu items involved.
  1061.  *     char *items[]:   Pointer to the text array
  1062.  *
  1063.  * OUT: TRUE - ended on a submenu
  1064.  *    FALSE - ended on a normal menu item.
  1065.  */
  1066. BOOLEAN
  1067. Pop_Arrow( POP_PTR PopPtr, int obj )
  1068. {
  1069.    OBJECT *tree;
  1070.    int    DrawFlag;
  1071.    int    i,j;
  1072.    GRECT  rect;
  1073.    GRECT  xrect, clip;
  1074.    MRETS  mk;
  1075.    int    pxy[8];
  1076.    int    xclip[4];
  1077.    long   location = 0L;    /* SCREEN MFDB        */
  1078.    BOOLEAN DelayFlag;
  1079.    BOOLEAN ReturnFlag;
  1080.                  
  1081.    tree = POBJECT( PopPtr );
  1082.  
  1083.    xrect = ObRect( obj );
  1084.    objc_offset( tree, obj, &xrect.g_x, &xrect.g_y );
  1085.    DelayFlag  = TRUE;
  1086.    ReturnFlag = FALSE;
  1087.    
  1088.    do
  1089.    {
  1090.        BSTATE = 0;
  1091.        DrawFlag = FALSE;
  1092.        /* Up Arrow Selected AND not at the top */
  1093.        if( ( obj == PFIRST( PopPtr ) ) && ( POFFSET( PopPtr ) > 0 ))
  1094.        {
  1095.          POFFSET( PopPtr ) -= 1;
  1096.          DrawFlag = TRUE;
  1097.          /* special handling...to make it jump to zero if
  1098.           * we are displaying item 2, we can jump to zero, blit and
  1099.           * redraw the top 2 items instead.
  1100.           */
  1101.          if( POFFSET( PopPtr ) == 1 )
  1102.              POFFSET( PopPtr ) = 0;    
  1103.        }
  1104.  
  1105.        /* DOWN Arrow and not within PHEIGHT() items from the bottom */
  1106.        if( ( obj == PLAST( PopPtr ) ) && ( POFFSET( PopPtr ) <= ( PNUM( PopPtr ) - PHEIGHT( PopPtr ) ) ) )
  1107.        {
  1108.          POFFSET( PopPtr ) += 1;
  1109.          DrawFlag = TRUE;
  1110.          /* Special handling for first item only */
  1111.          if( POFFSET( PopPtr ) == 1 )
  1112.          {
  1113.            if( ( POFFSET( PopPtr ) + PHEIGHT( PopPtr ) - 1 ) < PNUM( PopPtr ) )
  1114.                  POFFSET( PopPtr ) += 1;
  1115.          }
  1116.        }
  1117.  
  1118.        j = POFFSET( PopPtr );
  1119.        if( DrawFlag )
  1120.        {
  1121.           UpArrowStatus( PopPtr );
  1122.             DownArrowStatus( PopPtr );      
  1123.  
  1124.           /* Get the Blit Rectangle */
  1125.           clip = ObRect( PFIRST( PopPtr ));
  1126.           objc_offset( tree, ROOT, &clip.g_x, &clip.g_y );
  1127.           clip.g_h *= PHEIGHT( PopPtr );
  1128.       
  1129.           /* Calculate the height */
  1130.       
  1131.           if( strchr( ObString( PFIRST( PopPtr ) ), UP_ARROW ) )
  1132.           {
  1133.              clip.g_h -= gl_hchar;    /* Subtract 1 char height     */
  1134.              clip.g_y += gl_hchar;    /* Move the Ypos down 1 level */ 
  1135.           }
  1136.       
  1137.           if( strchr( ObString( PLAST( PopPtr )), DOWN_ARROW ) )
  1138.           {
  1139.             clip.g_h -= gl_hchar;    /* Subtract 1 char height      */
  1140.           }
  1141.       
  1142.           /* Set up SOURCE rectangle */
  1143.           rc_intersect( &desk, &clip );
  1144.           rect = clip;
  1145.           rc_2xy( &clip, ( WORD *)&pxy[0] );   
  1146.  
  1147.           if( obj == PFIRST( PopPtr ) )
  1148.               clip.g_y += gl_hchar;
  1149.       
  1150.           if( obj == PLAST( PopPtr ) )
  1151.               clip.g_y -= gl_hchar;
  1152.           rc_intersect( &desk, &clip );
  1153.           rc_2xy( &clip, ( WORD *)&pxy[4] );   
  1154.  
  1155.           clip = rect;
  1156.           rc_2xy( &clip, ( WORD *)&xclip[0] );   
  1157.           vs_clip( vhandle, 1, xclip );
  1158.           graf_mouse( M_OFF, 0L );
  1159.           vro_cpyfm( vhandle, 3, pxy, ( MFDB *)&location, ( MFDB *)&location );
  1160.           graf_mouse( M_ON, 0L );
  1161.       
  1162.             for( i = PFIRST( PopPtr ); i <= PLAST( PopPtr ); i++ )
  1163.             {
  1164.              if( ObType( i ) == G_STRING )
  1165.              {
  1166.                 if( i == PFIRST( PopPtr ) && strchr( ObString( PFIRST( PopPtr )), UP_ARROW ))
  1167.                 {
  1168.                     ObString( i ) = &PTEXTBUFF( PopPtr )[ ( PWIDTH( PopPtr ) + 1 ) * PNUM( PopPtr ) ];
  1169.                     continue;
  1170.                 }
  1171.                     
  1172.                 if( i == PLAST( PopPtr ) &&  strchr( ObString( PLAST( PopPtr )), DOWN_ARROW ))
  1173.                 {
  1174.                     ObString( i ) = &PTEXTBUFF( PopPtr )[ ( PWIDTH( PopPtr ) + 1 ) * ( PNUM( PopPtr ) + 1 ) ];
  1175.                     continue;
  1176.                 }    
  1177.                  
  1178.               SetNormal( i );
  1179.               if( CmdState( PopPtr->CharPtr[j] ) & CHECKED )
  1180.                   CheckObj( i );
  1181.                     
  1182.                 if( CmdState( PopPtr->CharPtr[j] ) & DISABLED )
  1183.                     Disable( i );
  1184.                       
  1185.                 ObString( i ) = &PTEXTBUFF( PopPtr )[ ( PWIDTH( PopPtr ) + 1 ) * j++ ];
  1186.           }   
  1187.           }
  1188.   
  1189.       
  1190.           if( obj == PFIRST( PopPtr ) )
  1191.           {
  1192.              rect = ObRect( obj );
  1193.              objc_offset( tree, obj, &rect.g_x, &rect.g_y );
  1194.              if( strchr( ObString( obj ), UP_ARROW ) )
  1195.                  rect.g_y += gl_hchar;
  1196.              else
  1197.              {
  1198.                  rect.g_h += gl_hchar;
  1199.                  ObString( obj ) = &PTEXTBUFF( PopPtr )[ 0 ];
  1200.                  if( !(CmdState( PopPtr->CharPtr[ 0 ] ) & DISABLED) )
  1201.                    Select( obj );
  1202.                    
  1203.                  if( CmdState( PopPtr->CharPtr[ 0 ] ) & CHECKED )
  1204.                    CheckObj( obj );
  1205.              }   
  1206.           }     
  1207.       
  1208.           if( obj == PLAST( PopPtr ) )    
  1209.           {
  1210.              rect = ObRect( obj );
  1211.              objc_offset( tree, obj, &rect.g_x, &rect.g_y );
  1212.              rect.g_y -= gl_hchar;
  1213.              if( !strchr( ObString( obj ), DOWN_ARROW ) )
  1214.              {
  1215.            rect.g_h += gl_hchar;         
  1216.                ObString( obj ) = &PTEXTBUFF( PopPtr )[ ( PWIDTH( PopPtr ) + 1 ) * ( PNUM( PopPtr ) - 1 )];
  1217.                if( !(CmdState( PopPtr->CharPtr[ PNUM( PopPtr ) - 1 ] ) & DISABLED) )
  1218.                    Select( obj );
  1219.                if( CmdState( PopPtr->CharPtr[ PNUM( PopPtr ) - 1 ] ) & CHECKED )
  1220.                    CheckObj( obj );
  1221.              }   
  1222.           }
  1223.           Objc_draw( tree, ROOT, MAX_DEPTH, &rect ); 
  1224.        }
  1225.        else
  1226.        {
  1227.           if( ( obj == PFIRST( PopPtr ) )   &&
  1228.            ( !strchr( ObString( obj ), UP_ARROW )) &&
  1229.               ( !( CmdState( PopPtr->CharPtr[ 0 ] ) & DISABLED )) &&
  1230.               (  CmdFlag( PopPtr->CharPtr[0] ) == '~' )
  1231.             )
  1232.             ReturnFlag = TRUE;
  1233.  
  1234.           if( ( obj == PLAST( PopPtr ) )   &&
  1235.            ( !strchr( ObString( obj ), DOWN_ARROW ) ) &&
  1236.               ( !( CmdState( PopPtr->CharPtr[ PNUM( PopPtr ) - 1 ] ) & DISABLED )) &&
  1237.               (  CmdFlag( PopPtr->CharPtr[ PNUM( PopPtr ) - 1 ] ) == '~' )
  1238.             )
  1239.             ReturnFlag = TRUE;
  1240.        }
  1241.        
  1242.        if( DelayFlag )
  1243.        {
  1244.            Evnt_timer( CLICK_DELAY );
  1245.            DelayFlag = FALSE;
  1246.        }    
  1247.  
  1248.        Graf_mkstate( &mk );  
  1249.    }while( (( BSTATE == 1 ) || ( BREAL == 1 )) && ( xy_inrect( mk.x, mk.y, &xrect )));
  1250.  
  1251.    Evnt_button( 1, 1, 0, &mk );       /* Make sure we have an up button...*/
  1252.    return( ReturnFlag );
  1253. }
  1254.  
  1255.  
  1256.  
  1257.  
  1258. /* Pop_Blit()
  1259.  * ====================================================================
  1260.  * Blit from screen to buffer or buffer to screen for Popup Box redraws.
  1261.  *
  1262.  * IN: long *PopPtr:    Pointer to memory buffer...
  1263.  *     GRECT *clip:    GRECT of clip blit area
  1264.  *     int   flag:    0 - blit from screen to buffer
  1265.  *                      1 - blit from buffer to screen
  1266.  *
  1267.  * OUT: returns TRUE if successful, FALSE if failed.
  1268.  */
  1269. BOOLEAN
  1270. Pop_Blit( long *PopPtr, GRECT *xclip, int flag )
  1271. {
  1272.    long     location = 0L;    /* SCREEN MFDB        */
  1273.    int      nplanes;        /* Number of planes    */
  1274.    unsigned long size;        /* size of malloc    */
  1275.    int      pxy[8];        /* pxy for blit        */
  1276.    GRECT    clip;
  1277.    MFDB     PopMFDB;        /* buffer MFDB        */
  1278.  
  1279.    clip      = ( GRECT )*xclip;
  1280.    clip.g_x -= 2;        /* adjust the clip area to take care of*/
  1281.    clip.g_y -= 2;        /* the edges and shadows...           */
  1282.    clip.g_w += 5;
  1283.    clip.g_h += 5;   
  1284.    rc_2xy( &clip, ( WORD *)&pxy[0] );
  1285.    vs_clip( vhandle, 1, pxy ); 
  1286.  
  1287.    vq_extnd( vhandle, 1, work_out );
  1288.    nplanes = work_out[4];
  1289.  
  1290.    if( !flag )                    /* screen to buffer blit*/
  1291.    {
  1292.      size = (unsigned long)(((long)clip.g_w + 7L )/8L) *
  1293.             (long)clip.g_h * (long)nplanes;
  1294.      size *= 2L;       
  1295.      *PopPtr = (long )malloc( (unsigned long ) size );
  1296.    }  
  1297.    
  1298.    if( !*PopPtr )
  1299.          return( FALSE );
  1300.  
  1301.    PopMFDB.fd_addr     = (long *)*PopPtr;    /* Setup the MFDB      */
  1302.    PopMFDB.fd_w        = clip.g_w;            
  1303.    PopMFDB.fd_h        = clip.g_h;
  1304.    PopMFDB.fd_wdwidth   = ( clip.g_w + 15 ) / 16;
  1305.    PopMFDB.fd_stand     = 0;
  1306.    PopMFDB.fd_nplanes   = nplanes;
  1307.    PopMFDB.fd_r1     = PopMFDB.fd_r2 = PopMFDB.fd_r3 = 0;
  1308.    
  1309.    graf_mouse( M_OFF, 0L );
  1310.    if(!flag )            
  1311.    { 
  1312.      /* Screen to buffer blit */  
  1313.      rc_intersect( &desk, &clip );        
  1314.      rc_2xy( &clip, ( WORD *)&pxy[0] );
  1315.      pxy[4] = pxy[5] = 0;           
  1316.      pxy[6] = clip.g_w - 1;
  1317.      pxy[7] = clip.g_h - 1;
  1318.      vro_cpyfm( vhandle, 3, pxy, ( MFDB *)&location, &PopMFDB );
  1319.    }
  1320.    else                
  1321.    {
  1322.      /* Buffer to screen blit */
  1323.      rc_intersect( &desk, &clip );
  1324.      pxy[0] = pxy[1] = 0;           
  1325.      pxy[2] = clip.g_w - 1; 
  1326.      pxy[3] = clip.g_h - 1;
  1327.      rc_2xy( &clip, ( WORD *)&pxy[4] );   
  1328.      vro_cpyfm( vhandle, 3, pxy, &PopMFDB, ( MFDB *)&location );
  1329.      if( *PopPtr )
  1330.          free( (long *)*PopPtr );
  1331.      *PopPtr = 0L;    
  1332.    }
  1333.    graf_mouse( M_ON, 0L );
  1334.  
  1335.    return( TRUE );
  1336. }
  1337.  
  1338.  
  1339.  
  1340.  
  1341. /* UpArrowStatus()
  1342.  * =====================================================================
  1343.  */
  1344. void
  1345. UpArrowStatus( POP_PTR PopPtr )
  1346. {
  1347.   OBJECT *tree;
  1348.   GRECT  rect;
  1349.     
  1350.   tree = POBJECT( PopPtr );
  1351.     
  1352.   /* Check if we need to activate the UP ARROW or deactivate it */
  1353.   if( POFFSET( PopPtr ) )    /* display the UP ARROW */
  1354.   {
  1355.      if( !strchr( ObString( PFIRST( PopPtr )), UP_ARROW ) )
  1356.      {
  1357.           rect = ObRect( PFIRST( PopPtr ) );
  1358.           objc_offset( tree, PFIRST( PopPtr ), &rect.g_x, &rect.g_y );
  1359.           
  1360.           SetNormal( PFIRST( PopPtr ) );
  1361.           ObString( PFIRST( PopPtr ) ) = &PTEXTBUFF( PopPtr )[ ( PWIDTH( PopPtr ) + 1 ) * PNUM( PopPtr )  ];
  1362.           Objc_draw( tree, ROOT, MAX_DEPTH, &rect );
  1363.      }
  1364.   }
  1365.   else
  1366.     ObString( PFIRST( PopPtr ) ) = &PTEXTBUFF( PopPtr )[ ( PWIDTH( PopPtr ) + 1 ) * ( PNUM( PopPtr ) + 2 ) ];
  1367. }
  1368.  
  1369.  
  1370.  
  1371. /* DownArrowStatus()
  1372.  * =====================================================================
  1373.  */
  1374. void
  1375. DownArrowStatus( POP_PTR PopPtr )
  1376. {
  1377.   OBJECT *tree;
  1378.   GRECT  rect;
  1379.     
  1380.   tree = POBJECT( PopPtr );
  1381.   
  1382.   /* Check if we need to display the DOWN ARROW */
  1383.  
  1384.   /* DISPLAY the DOWN ARROW */
  1385.   if( ( POFFSET( PopPtr ) + PHEIGHT( PopPtr )) <= PNUM( PopPtr ) )
  1386.   {
  1387.       if( !strchr( ObString( PLAST( PopPtr )), DOWN_ARROW ) )
  1388.       {
  1389.         rect = ObRect( PLAST( PopPtr ) );
  1390.         objc_offset( tree, PLAST( PopPtr ), &rect.g_x, &rect.g_y );
  1391.  
  1392.         SetNormal( PLAST( PopPtr ) );
  1393.         ObString( PLAST( PopPtr ) ) = &PTEXTBUFF( PopPtr )[ ( PWIDTH( PopPtr ) + 1 ) * ( PNUM( PopPtr ) + 1 ) ];
  1394.         Objc_draw( tree, ROOT, MAX_DEPTH, &rect );
  1395.       }
  1396.   }
  1397.   else
  1398.     ObString( PLAST( PopPtr ) ) = &PTEXTBUFF( PopPtr )[ ( PWIDTH( PopPtr ) + 1 ) * ( PNUM( PopPtr ) + 2 ) ];
  1399. }
  1400.  
  1401.  
  1402.  
  1403.  
  1404. /* SetArrowClickDelay()
  1405.  * =====================================================================
  1406.  * Set the Click Delay before the menu starts to scroll.
  1407.  */
  1408. void
  1409. SetArrowClickDelay( long delay )
  1410. {
  1411.    CLICK_DELAY = (( delay > 0L ) ? ( delay ) : ( INIT_CLICK_DELAY ));
  1412. }
  1413.  
  1414.  
  1415.  
  1416.  
  1417. /* CHECK FOR KEYCODES...
  1418.  * =====================================================================
  1419.  * Checks the string for the keystrings below so that they may be
  1420.  * subtracted from the length of the string for calculation purposes.
  1421.  */
  1422.  
  1423. /* CheckForCtrl()
  1424.  * =====================================================================
  1425.  * Looks for a ^ in the string.
  1426.  * Returns a pointer to the string where it starts.
  1427.  */
  1428. char 
  1429. *CheckForCtrl( char *text )
  1430. { 
  1431.    return( strchr( text, '^' ) );
  1432. }
  1433.  
  1434.  
  1435.  
  1436. /* CheckForAlt()
  1437.  * =====================================================================
  1438.  * Looks for a & in the string.
  1439.  * Returns a pointer to the string where it starts.
  1440.  */
  1441. char 
  1442. *CheckForAlt( char *text )
  1443. {
  1444.    return( strchr( text, '&' ) );
  1445. }
  1446.  
  1447.  
  1448. /* CheckForCapKey()
  1449.  * =====================================================================
  1450.  * Looks for a / in the string.
  1451.  * Returns a pointer to the string where it starts.
  1452.  */
  1453. char
  1454. *CheckForCapKey( char *text )
  1455. {
  1456.    return( strchr( text, '|' ) );
  1457. }
  1458.  
  1459.  
  1460. /* CheckForCmdKey()
  1461.  * =====================================================================
  1462.  * Looks for a $ in the string.
  1463.  * Returns pointer to the string where it starts.
  1464.  */
  1465. char
  1466. *CheckForCmdKey( char *text )
  1467. {
  1468.    return( strchr( text, '$' ) );
  1469. }
  1470.  
  1471.  
  1472. /* CheckForDisable()
  1473.  * =====================================================================
  1474.  * Looks for a @ in the string.
  1475.  * Returns TRUE if found, FALSE if not.
  1476.  */
  1477. BOOLEAN
  1478. CheckForDisable( char *text )
  1479. {
  1480.    return( ( BOOLEAN )strchr( text, '@' ) );
  1481. }
  1482.  
  1483.  
  1484. /* CheckForMenuCheck()
  1485.  * =====================================================================
  1486.  * Looks for a ! in the string.
  1487.  * Returns TRUE if found, FALSE if not.
  1488.  */
  1489. BOOLEAN
  1490. CheckForMenuCheck( char *text )
  1491. {
  1492.   return( ( BOOLEAN )strchr( text, '!' ) );
  1493. }
  1494.  
  1495.  
  1496.  
  1497. /* CheckForSubMenu()
  1498.  * =====================================================================
  1499.  * Looks for a ~ in the string.
  1500.  * Returns the pointer to the string where it starts.
  1501.  */
  1502. char
  1503. *CheckForSubMenu( char *text )
  1504. {
  1505.    return( strchr( text, '~' ) );
  1506. }
  1507.  
  1508.  
  1509.  
  1510. /* CheckForFuncKey()
  1511.  * =====================================================================
  1512.  * Looks for a # in the string.
  1513.  * Returns the pointer to the string if found.
  1514.  */
  1515. char
  1516. *CheckForFuncKey( char *text )
  1517. {
  1518.    return( strchr( text, '#' ) );
  1519. }
  1520.  
  1521.  
  1522. /* CheckForDuplicate()
  1523.  * =====================================================================
  1524.  * Looks for a * in the string.
  1525.  * Returns TRUE if found, FALSE if not.
  1526.  * The length of the string to compare should be ZERO. :-)
  1527.  * This is because this string will be the width of the menu.
  1528.  */
  1529. BOOLEAN
  1530. CheckForDuplicate( char *text )
  1531. {
  1532.    return( ( BOOLEAN )strchr( text, '*' ));
  1533. }
  1534.  
  1535.  
  1536.  
  1537. /* CheckForKeyCodes()
  1538.  * =====================================================================
  1539.  * Checks the text string for various keycodes and subtracts
  1540.  * an appropriate amount from the length if any are found.
  1541.  * For many of these, there should only be one of them.
  1542.  * We then ADD back in the amount of ACTUAL text usage this item
  1543.  * would take. IE: a Function Key can be F10 so 3 characters...
  1544.  * or a CmdKey can be the letters: 'DEL' 3 characters added.
  1545.  * This will also fill up the CMDCHAR structures.
  1546.  */
  1547. long
  1548. CheckForKeyCodes( POP_PTR PopPtr, char *text, int num_entry )
  1549. {
  1550.     long length;
  1551.     long num;
  1552.     
  1553.     length = strlen( text );
  1554.  
  1555.     if( strchr( text, '@' ))
  1556.        length -= 1L;
  1557.  
  1558.     if( strchr( text, '!' ))
  1559.        length -= 1L;
  1560.        
  1561.     switch( CmdFlag( PopPtr->CharPtr[ num_entry ] ) )
  1562.     {
  1563.        case '^':
  1564.        case '~':
  1565.        case '#':
  1566.        case '&': length += 1L;
  1567.                 break;
  1568.                 
  1569.        case '|': length += 2L;
  1570.                 break;
  1571.                 
  1572.        case '$': switch( CmdHotKey( PopPtr->CharPtr[ num_entry ] )  )
  1573.              {
  1574.                 case 'h': /* Home */
  1575.                           strcpy( &CmdText[0], KeyText[0] ); 
  1576.                          break;
  1577.                                  
  1578.                 case 'H': /* HELP */
  1579.                           strcpy( &CmdText[0], KeyText[1] );
  1580.                           break;
  1581.                                  
  1582.                 case 'U': /* Undo */
  1583.                             strcpy( &CmdText[0], KeyText[2] );
  1584.                             break;
  1585.                                  
  1586.                 case 'E': /* Escape*/
  1587.                             strcpy( &CmdText[0], KeyText[3] );
  1588.                             break;
  1589.                                  
  1590.                 case 'I': /* Insert */
  1591.                              strcpy( &CmdText[0], KeyText[4] );
  1592.                              break;
  1593.                                  
  1594.                 case 'C': /* Clr */
  1595.                             strcpy( &CmdText[0], KeyText[5] );
  1596.                             break;
  1597.                                  
  1598.                 case 'D': /* Delete */
  1599.                             strcpy( &CmdText[0], KeyText[6] );
  1600.                              break;
  1601.  
  1602.                 case 'T': /* TAB    */
  1603.                             strcpy( &CmdText[0], KeyText[7] );
  1604.                              break;
  1605.  
  1606.                 case 'e': /* ENTER  */
  1607.                             strcpy( &CmdText[0], KeyText[8] );
  1608.                              break;
  1609.  
  1610.                 case 'R': /* RETURN */        
  1611.                             strcpy( &CmdText[0], KeyText[9] );
  1612.                              break;
  1613.                    
  1614.                 default:  CmdText[0] = '\0';
  1615.                             break;
  1616.          }
  1617.          num = strlen( &CmdText[0] );
  1618.          num = num - 2 + 1;    /* minus the ctrl codes + 1 space */
  1619.          length += num;
  1620.                 break;
  1621.                 
  1622.        case '*': length = 1L;
  1623.                 break;
  1624.                       
  1625.        default:  
  1626.                 break;
  1627.     }
  1628.     return( length );
  1629. }
  1630.  
  1631. /* END OF KEYCODE CHECKING
  1632.  * =====================================================================
  1633.  */
  1634.  
  1635.  
  1636. /* CONTROLLING THE APPEARANCE OF ITEMS
  1637.  * =====================================================================
  1638.  */
  1639.  
  1640. /* SetHeight()
  1641.  * =====================================================================
  1642.  * Set the height of the Menu.( in chars ).
  1643.  */
  1644. void
  1645. SetHeight( int MenuID, int Height )
  1646. {
  1647.    POP_PTR PopPtr;
  1648.    
  1649.    PopPtr = GetMenuPtr( MenuID );
  1650.    
  1651.    if( Height > 0 )
  1652.       PHEIGHT( PopPtr ) = Height;
  1653. }
  1654.  
  1655.  
  1656.  
  1657. /* SetNumItems()
  1658.  * =====================================================================
  1659.  * Set the number of items in the menu. This can be used to display
  1660.  * fewer items than the InsertMenu() call created.
  1661.  */
  1662. void
  1663. SetNumItems( int MenuID, int NumItems )
  1664. {
  1665.    POP_PTR PopPtr;
  1666.   
  1667.    PopPtr = GetMenuPtr( MenuID );
  1668.    if( NumItems > 0 )
  1669.       PNUM( PopPtr ) = NumItems;
  1670. }
  1671.  
  1672.  
  1673.  
  1674. /* CheckItem()
  1675.  * =====================================================================
  1676.  * Places or removes a check mark at the left of a menu item.
  1677.  */
  1678. void
  1679. CheckItem( int MenuID, int item, BOOLEAN check )
  1680. {
  1681.     POP_PTR PopPtr;
  1682.     
  1683.     PopPtr = GetMenuPtr( MenuID );
  1684.     if( check )
  1685.       CmdState( PopPtr->CharPtr[ item ] ) |= CHECKED;
  1686.     else
  1687.       CmdState( PopPtr->CharPtr[ item ] ) &= ~CHECKED;
  1688. }
  1689.  
  1690.  
  1691.  
  1692. /* DisableItem()
  1693.  * =====================================================================
  1694.  * Disables a menu item.
  1695.  */
  1696. void
  1697. DisableItem( int MenuID, int item )
  1698. {
  1699.    POP_PTR PopPtr;
  1700.    
  1701.    PopPtr = GetMenuPtr( MenuID );
  1702.    CmdState( PopPtr->CharPtr[ item ] ) |= DISABLED;
  1703. }
  1704.  
  1705.  
  1706.  
  1707. /* EnableItem()
  1708.  * =====================================================================
  1709.  * Enables a menu item.
  1710.  */
  1711. void
  1712. EnableItem( int MenuID, int item )
  1713. {
  1714.    POP_PTR PopPtr;
  1715.    
  1716.    PopPtr = GetMenuPtr( MenuID );
  1717.    CmdState( PopPtr->CharPtr[ item ] ) &= ~DISABLED;
  1718. }
  1719.  
  1720.  
  1721. /* SetItemCmd()
  1722.  * =====================================================================
  1723.  * This can be used to attach a submenu to a menu item.
  1724.  * You must still call 'SetSubMenuID()' tell the popups which
  1725.  * submenu to attach. Otherwise, this is a great way to change
  1726.  * the keyboard shortcuts. Use SetItemMark() to change the
  1727.  * keyboard shortcuts AFTER setting the type with the SetItemCmd().
  1728.  */
  1729. void
  1730. SetItemCmd( int MenuID, int item, char cmd ) 
  1731. {
  1732.    POP_PTR PopPtr;
  1733.    
  1734.    PopPtr = GetMenuPtr( MenuID );
  1735.    CmdFlag( PopPtr->CharPtr[ item ] ) = cmd;
  1736. }
  1737.  
  1738.  
  1739. /* GetItemCmd()
  1740.  * =====================================================================
  1741.  * This can be used to determine if a submenu is attached to 
  1742.  * this menu item. It returns the current command.
  1743.  * RETURNS: 
  1744.  *           '~' == SubMenu for example
  1745.  */
  1746. char
  1747. GetItemCmd( int MenuID, int item )
  1748. {
  1749.     POP_PTR PopPtr;
  1750.  
  1751.     PopPtr = GetMenuPtr( MenuID );
  1752.     return( CmdFlag( PopPtr->CharPtr[ item ] ) );
  1753. }
  1754.  
  1755.  
  1756.  
  1757. /* SetSubMenuID()
  1758.  * =====================================================================
  1759.  * This can be used to change the ID of the submenu associated
  1760.  * with a menu item. Nothing happens of course, if the menu_item 
  1761.  * does not have a submenu CMD.
  1762.  */
  1763. void
  1764. SetSubMenuID( int MenuID, int item, int ID )
  1765. {
  1766.    POP_PTR PopPtr;
  1767.  
  1768.    PopPtr = GetMenuPtr( MenuID );
  1769.    if( GetItemCmd( MenuID, item ) == '~' )
  1770.      CmdSubMenu( PopPtr->CharPtr[ item ] ) = ID;
  1771. }
  1772.  
  1773.  
  1774. /* GetSubMenuID()
  1775.  * =====================================================================
  1776.  * This can be used to get the ID of the submenu associated
  1777.  * with the menu item. Course, the item must HAVE a submenu in
  1778.  * the first place. Use GetItemCmd to determine if there is a
  1779.  * submenu.
  1780.  * RETURN: -1 if there is no submenu.
  1781.  */
  1782. int
  1783. GetSubMenuID( int MenuID, int item )
  1784. {
  1785.    POP_PTR PopPtr;
  1786.  
  1787.    PopPtr = GetMenuPtr( MenuID );
  1788.    if( GetItemCmd( MenuID, item ) == '~' )
  1789.      return( CmdSubMenu( PopPtr->CharPtr[ item ] ));
  1790.    else
  1791.      return( -1 );  
  1792. }
  1793.  
  1794.  
  1795. /* SetItemMark()
  1796.  * =====================================================================
  1797.  * This can be used to change the CMDKEY of a keyboard shortcut.
  1798.  * The command type itself is set with SetItem(). All except function
  1799.  * keys and submenus.
  1800.  */
  1801. void
  1802. SetItemMark( int MenuID, int item, char key )
  1803. {
  1804.    POP_PTR PopPtr;
  1805.  
  1806.    PopPtr = GetMenuPtr( MenuID );
  1807.    CmdHotKey( PopPtr->CharPtr[ item ] ) = key;
  1808. }
  1809.  
  1810.  
  1811.  
  1812. /* GetItemMark() 
  1813.  * =====================================================================
  1814.  * This can be used to see what the CMDKEY shortcut is associated with
  1815.  * the menu item. All except function keys and submenus.
  1816.  */
  1817. char
  1818. GetItemMark( int MenuID, int item )
  1819. {
  1820.    POP_PTR PopPtr;
  1821.  
  1822.    PopPtr = GetMenuPtr( MenuID );
  1823.    return( CmdHotKey( PopPtr->CharPtr[ item ] ) );
  1824. }
  1825.  
  1826.  
  1827. /* SetFuncMark()
  1828.  * =====================================================================
  1829.  * This can be used to set the Functio key # that is to be
  1830.  * associated with the menu item.
  1831.  */
  1832. void
  1833. SetFuncMark( int MenuID, int item, int num )
  1834. {   
  1835.    POP_PTR PopPtr;
  1836.  
  1837.    PopPtr = GetMenuPtr( MenuID );
  1838.    CmdFuncKey( PopPtr->CharPtr[ item ] ) = num;
  1839. }
  1840.  
  1841.  
  1842.  
  1843.  
  1844. /* GetFuncMark()
  1845.  * =====================================================================
  1846.  * This can be used to get wot function key # is associated with
  1847.  * the menu item.
  1848.  */
  1849. int 
  1850. GetFuncMark( int MenuID, int item )
  1851. {
  1852.    POP_PTR PopPtr;
  1853.  
  1854.    PopPtr = GetMenuPtr( MenuID );
  1855.    return( CmdFuncKey( PopPtr->CharPtr[ item ] ) );
  1856. }
  1857.  
  1858.  
  1859.  
  1860. /* SetItem()
  1861.  * =====================================================================
  1862.  * Set the Menu item string.
  1863.  * 1) The string must not exceed the original string length.
  1864.  * 2) Meta characters will be printed as regular text.
  1865.  * 3) If the string is longer than the original, then
  1866.  *    the new string will be truncated.
  1867.  */
  1868. void
  1869. SetItem( int MenuID, int item, char *text )
  1870. {
  1871.    POP_PTR PopPtr;
  1872.    int     count;
  1873.    char    *txtptr;
  1874.    long    length;
  1875.    long    length2;
  1876.            
  1877.    PopPtr = GetMenuPtr( MenuID );
  1878.  
  1879.    txtptr = PTEXT( PopPtr );
  1880.    if( txtptr )
  1881.    {
  1882.        for( count = 0; count < item; count++ )
  1883.        {    
  1884.          length = strlen( txtptr );
  1885.          txtptr += ( length + 1 );
  1886.        }
  1887.        /* we've reached the text area that we want. */
  1888.        length = strlen( txtptr );
  1889.        strncpy( txtptr, text, length );
  1890.        length2 = strlen( txtptr );
  1891.        for( count = (int)length2; count < length; count++ )
  1892.           strcat( txtptr, " " );
  1893.    }
  1894. }
  1895.  
  1896.  
  1897.  
  1898. /* GetItem() 
  1899.  * =====================================================================
  1900.  * Returns the string associated with the menu item WITHOUT
  1901.  * the meta characters.
  1902.  */
  1903. char
  1904. *GetItem( int MenuID, int item )
  1905. {
  1906.    POP_PTR PopPtr;
  1907.    int     count;
  1908.    char    *txtptr;
  1909.    char    *sptr;
  1910.    char    *dptr;
  1911.    long    length;
  1912.             
  1913.    PopPtr = GetMenuPtr( MenuID );
  1914.  
  1915.    txtptr = PTEXT( PopPtr );
  1916.    if( txtptr )
  1917.    {
  1918.        for( count = 0; count < item; count++ )
  1919.        {    
  1920.          length = strlen( txtptr );
  1921.          txtptr += ( length + 1 );
  1922.        }
  1923.        
  1924.        /* we've reached the text area that we want. */
  1925.        length = strlen( txtptr );
  1926.        sptr = txtptr;
  1927.        dptr = &TempString[0];
  1928.        
  1929.        while( *sptr )
  1930.        {
  1931.        
  1932.           switch( *sptr )
  1933.           {
  1934.               case '*':
  1935.                  case '@':
  1936.               case '!': sptr++;
  1937.                     break;
  1938.                 
  1939.                  case '^':
  1940.               case '~':
  1941.                  case '&':
  1942.                  case '$':
  1943.                  case '|': sptr += 2;
  1944.                    break;
  1945.  
  1946.               case '#': sptr += 2;
  1947.                       length = strlen( sptr );
  1948.                       if( length > 1 )
  1949.                           sptr++;
  1950.                       break;
  1951.                       
  1952.                  default:  *dptr++ = *sptr++;
  1953.                            break;
  1954.            }
  1955.        }
  1956.        *dptr = '\0';
  1957.        return( ( char *)&TempString[0] );
  1958.    }
  1959.    return( (char *)NULL );
  1960. }
  1961.  
  1962.  
  1963.  
  1964. /* SetStartItem()
  1965.  * =====================================================================
  1966.  * This can be used to Set the start item on a submenu. This will
  1967.  * work of course, on the main menu too.
  1968.  */
  1969. void
  1970. SetStartItem( int MenuID, int item )
  1971. {
  1972.    POP_PTR PopPtr;
  1973.    
  1974.    PopPtr = GetMenuPtr( MenuID );
  1975.    PopUpItem( PopPtr ) = item;
  1976. }
  1977.  
  1978.  
  1979.  
  1980. /* GetStartItem()
  1981.  * =====================================================================
  1982.  * This can be used to get the start item in a submenu. Or at least
  1983.  * wot it currently thinks it is...
  1984.  */
  1985. int
  1986. GetStartItem( int MenuID )
  1987. {
  1988.    POP_PTR PopPtr;
  1989.    
  1990.    PopPtr = GetMenuPtr( MenuID );
  1991.    return( PopUpItem( PopPtr ) );
  1992. }
  1993.  
  1994.  
  1995.  
  1996. /* END OF APPEARANCE OF ITEMS
  1997.  * =====================================================================
  1998.  */
  1999.  
  2000.  
  2001. /* SUBMENU HANDLING
  2002.  * =====================================================================
  2003.  */
  2004.  
  2005.  
  2006.  
  2007. /* DoSubMenu()
  2008.  * =====================================================================
  2009.  * Display the submenu if necessary...
  2010.  *
  2011.  */
  2012. POP_PTR
  2013. DoSubMenu( POP_PTR PopPtr, int obj )
  2014. {
  2015.    int        num;
  2016.    POP_PTR SubPopPtr;
  2017.    GRECT   SubRect;   
  2018.    int     MenuID;
  2019.    OBJECT  *tree;
  2020.    int     curx;
  2021.    
  2022.  
  2023.    ActiveTree( POBJECT( PopPtr ) );
  2024.    SubPopPtr = ( POP_PTR )NULL;
  2025.    if( obj != -1 )
  2026.    {
  2027.      num = FindNum( PopPtr, obj );
  2028.      if( CmdFlag( PopPtr->CharPtr[ num ] ) == '~' )
  2029.      {
  2030.         SubRect   = ObRect( obj );
  2031.         objc_offset( tree, obj, &SubRect.g_x, &SubRect.g_y );
  2032.       
  2033.         MenuID    = CmdSubMenu( PopPtr->CharPtr[ num ] );
  2034.         SubPopPtr = GetMenuPtr( MenuID );
  2035.         /* Displays faster if drawn on a byte boundary.*/
  2036.         curx = SubRect.g_x + SubRect.g_w -1 - gl_wchar;
  2037.         curx = (( curx + 7 )/8)*8;
  2038.         if( !ShowSubMenu( MenuID, curx, SubRect.g_y, &SubRect ))
  2039.            SubPopPtr = ( POP_PTR )NULL;
  2040.      }
  2041.    }  
  2042.    return( SubPopPtr );
  2043. }
  2044.  
  2045.  
  2046.  
  2047.  
  2048. /* ShowSubMenu()
  2049.  * =====================================================================
  2050.  * Display the Initial Submenu 
  2051.  * RETURN: TRUE - AOK
  2052.  *         FALSE - Memory allocation error.
  2053.  */
  2054. BOOLEAN
  2055. ShowSubMenu( int MenuID, int xpos, int ypos, GRECT *rect )
  2056. {
  2057.     POP_PTR PopPtr;
  2058.     int     max_height;
  2059.            
  2060.     PopPtr = GetMenuPtr( MenuID );
  2061.  
  2062.     PPREV( PopPtr ) = ( POP_PTR )NULL;
  2063.         
  2064.     PXPOS( PopPtr )   = xpos;
  2065.     PYPOS( PopPtr )   = ypos;
  2066.  
  2067.     /* Take care of height of menu */ 
  2068.     if( PHEIGHT( PopPtr ) > PNUM( PopPtr ) )
  2069.         PHEIGHT( PopPtr ) = PNUM( PopPtr );
  2070.  
  2071.     /* Limit Height to Height of screen - ( 2 * gl_hchars ) */
  2072.     max_height = yres - ( 2 * gl_hchar );
  2073.     while( ( PHEIGHT( PopPtr ) * gl_hchar ) > max_height )
  2074.        PHEIGHT( PopPtr ) -= 1;
  2075.  
  2076.     PIX_HEIGHT( PopPtr )  = ( PHEIGHT( PopPtr ) * gl_hchar );
  2077.  
  2078.     /* Take care of the width of the menu here...*/
  2079.     PTEXTBUFFSIZE( PopPtr ) = CalcTextBufferSize( PopPtr );
  2080.     PIX_WIDTH( PopPtr )     = ( PWIDTH( PopPtr ) * gl_wchar );
  2081.  
  2082.     AdjustToScreen( PopPtr, xpos, ypos, rect, TRUE, FALSE );
  2083.  
  2084.     if( Pop_Blit( (long *)&PMEM( PopPtr ), &PObRect( PopPtr ), 0 ) )
  2085.     {
  2086.         if( Build_Objects( PopPtr ))
  2087.           return( TRUE );
  2088.     }    
  2089.     return( FALSE );
  2090. }
  2091.  
  2092.  
  2093.  
  2094.  
  2095. /* HideSubMenu()
  2096.  * =====================================================================
  2097.  * Hides the Submenu and free's any memory that it malloc'ed.
  2098.  */
  2099. void
  2100. HideSubMenu( POP_PTR PopPtr )
  2101. {
  2102.     Pop_Blit( (long *)&PMEM( PopPtr ), &PObRect( PopPtr ), 1 );
  2103.  
  2104.     if( POBJECT( PopPtr ) )
  2105.         free( POBJECT( PopPtr ) );
  2106.         
  2107.     if( PTEXTBUFF( PopPtr ) )    
  2108.         free( PTEXTBUFF( PopPtr ) );
  2109.         
  2110.     POBJECT( PopPtr )   = ( OBJECT *)NULL;
  2111.     PTEXTBUFF( PopPtr ) = ( char *)NULL;
  2112. }
  2113.  
  2114.  
  2115.  
  2116.  
  2117. /* EvntSubMenu()
  2118.  * ====================================================================
  2119.  * Submenu Handling...
  2120.  * IN: POP_PTR PopPtr
  2121.  * OUT: long      -1L   No Menu Items selected.
  2122.  *                -2L   We've rentered the submenu ( won't get to user )
  2123.  *                High Word         Low Word
  2124.  *                ---------        --------
  2125.  *                 Menu ID            -1      Selected Disabled Item
  2126.  *           Menu ID        Menu Item Selected Menu Item.
  2127.  */
  2128. long
  2129. EvntSubMenu( POP_PTR PopPtr )
  2130. {
  2131.    long   result;            /* Result to return with...     */
  2132.    MRETS  mk;                /* mouse structures          */
  2133.    int    oldobj;            /* old object              */
  2134.    int    done = FALSE;            /* Done flag to return..    */
  2135.    int    obj;                /* object mouse is over...      */
  2136.    int    event;            /* Mouse button event flag    */
  2137.                        /* TRUE = event occurred    */
  2138.    POP_PTR SubPopPtr;            /* Pointer to Submenu...        */
  2139.    POP_PTR TempPtr;            /* Temporary Submenu Pointer    */
  2140.    
  2141.    GRECT  SubRect;            /* ObRect of Submenu        */
  2142.    GRECT  TempRect;            /* Temp ObRect                */
  2143.    
  2144.    GRECT  wall;               /* ObRect for boundary checks   */
  2145.    GRECT  BoxRect;            /* ObRect for boundary checks   */
  2146.    GRECT  DragRect;            /* ObRect for Drag boundary     */
  2147.  
  2148.    OBJECT *tree;            /* Object tree declaration      */
  2149.    int    Action;            /* Action that is occurring     */
  2150.    int    num;                /* temp number storage        */
  2151.    int    ActiveObj;            /* Current Active Object        */
  2152.    
  2153.    long CurTimeHz;            /* Time in 200Hz...*/
  2154.    BOOLEAN MenuDelayFlag;        /* Display Submenu Delay in effect*/
  2155.    BOOLEAN MenuDragFlag;        /* Drag Submenu Delay in effect  */
  2156.    BOOLEAN DragStart;            /* Start Drag Submenu Delay...   */
  2157.    int  MenuObject;            /* Object to start the timer on*/            
  2158.    int  OldY;                /* Old Y pos for a drag */   
  2159.    int  OldX;
  2160.          
  2161.    ActiveTree( POBJECT( PopPtr ) );
  2162.    Graf_mkstate( &mk );
  2163.  
  2164.    oldobj     = -1;
  2165.    obj        = objc_find( tree, ROOT, MAX_DEPTH, mk.x, mk.y );
  2166.    SubPopPtr  = ( POP_PTR )NULL;
  2167.    BoxRect    = ObRect( ROOT );
  2168.    result     = -1L;
  2169.    OldY          = 0;
  2170.    OldX       = 0;
  2171.       
  2172.    MenuDelayFlag = FALSE;    
  2173.    MenuDragFlag  = FALSE;      
  2174.    DragStart     = FALSE;
  2175.    ActiveObj     = -1;
  2176.    BSTATE      = BREAL = 0;
  2177.  
  2178.    do
  2179.    {
  2180.        if( obj != -1 )
  2181.        {    
  2182.        if( obj != oldobj )
  2183.           {
  2184.          wall = ObRect( obj );
  2185.          objc_offset( tree, obj, &wall.g_x, &wall.g_y );
  2186.           if( SubPopPtr )
  2187.             {
  2188.             PPREV( SubPopPtr ) = ( POP_PTR )NULL;
  2189.             HideSubMenu( SubPopPtr );
  2190.             SubPopPtr = ( POP_PTR )NULL;
  2191.             MenuDragFlag  = FALSE;
  2192.             MenuDelayFlag = FALSE;
  2193.             DragStart     = FALSE;
  2194.             ActiveObj = -1;
  2195.          }
  2196.          if(( oldobj != -1 ) && ( oldobj != obj ))
  2197.               deselect( tree, oldobj );
  2198.  
  2199.          if( ( obj == PFIRST( PopPtr ) && strchr( ObString( obj ), UP_ARROW ) ) ||
  2200.              ( obj == PLAST( PopPtr ) && strchr( ObString( obj ), DOWN_ARROW ) )
  2201.            )
  2202.            deselect( tree, obj );  
  2203.          else
  2204.          {
  2205.             if( !IsDisabled( obj ) ) 
  2206.             {
  2207.                   select( tree, obj );
  2208.  
  2209.                if( ( num = FindNum( PopPtr, obj )) != -1 )
  2210.            {
  2211.               if( CmdFlag( PopPtr->CharPtr[ num ] ) == '~' )
  2212.               {
  2213.                  Supexec( GetTimeHz );
  2214.                  CurTimeHz     = TimeInHz;
  2215.                  MenuDelayFlag = TRUE;
  2216.                  MenuDragFlag  = FALSE;
  2217.                      DragStart     = FALSE;
  2218.                  MenuObject    = obj;
  2219.               }  
  2220.            }                
  2221.                }  
  2222.             }  
  2223.        }
  2224.        }
  2225.        else
  2226.        {
  2227.      if(( oldobj != -1 ) && ( oldobj != obj ) )
  2228.          {
  2229.         deselect( tree, oldobj );
  2230.          }
  2231.        }
  2232.        oldobj = obj;
  2233.        
  2234.        Graf_mkstate( &mk );
  2235.        OldY = mk.y;
  2236.        OldX = mk.x;
  2237.        do
  2238.        {
  2239.                BSTATE = 0;
  2240.             if( MenuDragFlag )
  2241.             {
  2242.                if( ( !xy_inrect( mk.x, mk.y, &wall ) || 
  2243.                    ( SubPopPtr && xy_inrect( mk.x, mk.y, &SubRect ) ))
  2244.                  )
  2245.                {
  2246.           if( DragStart )
  2247.           {
  2248.                     Supexec( GetTimeHz );
  2249.                     CurTimeHz = TimeInHz;
  2250.                     DragStart = FALSE;
  2251.                     DragRect.g_x = mk.x;
  2252.                     DragRect.g_y = SubRect.g_y;
  2253.                     DragRect.g_h = SubRect.g_h;
  2254.                     
  2255.                     OldX = mk.x;
  2256.                     OldY = mk.y;
  2257.                                 
  2258.                     if( mk.x <= SubRect.g_x )
  2259.                     {
  2260.                        DragRect.g_w = SubRect.g_w + ( SubRect.g_x - DragRect.g_x );
  2261.                     }
  2262.                     else
  2263.                     {
  2264.                DragRect.g_x = SubRect.g_x;
  2265.                        DragRect.g_w = mk.x - SubRect.g_x + 1;
  2266.                     }
  2267.                   }  
  2268.  
  2269.               if( SubPopPtr )
  2270.                   {
  2271.                        if( !DragStart )
  2272.                        {
  2273.                  Supexec( GetTimeHz );
  2274.                  if( ( TimeInHz - CurTimeHz ) >= SUBDRAG_DELAY )
  2275.                      MenuDragFlag = FALSE;
  2276.  
  2277.                  if( !xy_inrect( mk.x, mk.y, &DragRect ) ||
  2278.                      (xy_inrect( mk.x, mk.y, &DragRect ) &&
  2279.                       ( mk.x == OldX ) &&
  2280.                       ( mk.y != OldY )
  2281.                  ) 
  2282.                    )  
  2283.                    MenuDragFlag = FALSE;    
  2284.                  else
  2285.                  {
  2286.                         DragRect.g_x = mk.x;
  2287.                         if( mk.x <= SubRect.g_x )
  2288.                         {
  2289.                                   DragRect.g_w = SubRect.g_w + ( SubRect.g_x - DragRect.g_x );
  2290.                             }
  2291.                             else
  2292.                            {
  2293.                        DragRect.g_x = SubRect.g_x;
  2294.                                DragRect.g_w = mk.x - SubRect.g_x + 1;
  2295.                             }
  2296.                  }    
  2297.                }      
  2298.  
  2299.                        /* We're in the new submenu...*/
  2300.                        if( xy_inrect( mk.x, mk.y, &SubRect ) )
  2301.                        {
  2302.                          Action = 0;
  2303.                          MenuDragFlag = FALSE;
  2304.                          break;    
  2305.                        }    
  2306.                        MenuDelayFlag = FALSE;
  2307.                   }
  2308.                }
  2309.             }
  2310.             else
  2311.         {            
  2312.                 BoxRect = ObRect( ROOT );
  2313.                 if( xy_inrect( mk.x, mk.y, &BoxRect ) )
  2314.                 {
  2315.                        /* We're in our current submenu still
  2316.                      * but we might be in a new menu item.
  2317.                      */
  2318.                        Action = 1;
  2319.                        break;
  2320.                 }      
  2321.                 else           
  2322.                 {
  2323.                     /* Checking to see if we're in any of the previous menus */
  2324.                     TempPtr = PPREV( PopPtr );
  2325.                     while( TempPtr )
  2326.                     {
  2327.                        /* We're in a previous submenu or root */
  2328.                        TempRect = PObRect( TempPtr );
  2329.                        if( xy_inrect( mk.x, mk.y, &TempRect ) )
  2330.                        {
  2331.                           Action = 2;
  2332.                           goto abort;
  2333.                    }
  2334.                    TempPtr = PPREV( TempPtr );
  2335.                     }
  2336.                 }
  2337.                 
  2338.                 /* if we reach here, we're outside of all the rectangles.*/
  2339.             if( SubPopPtr )
  2340.             {
  2341.                    HideSubMenu( SubPopPtr );
  2342.                PPREV( SubPopPtr ) = ( POP_PTR )NULL;
  2343.                SubPopPtr     = ( POP_PTR )NULL;
  2344.                ActiveObj     = -1;
  2345.                MenuDragFlag  = FALSE;
  2346.                MenuDelayFlag = FALSE;
  2347.                 }
  2348.  
  2349.             if( oldobj != -1 )
  2350.             {
  2351.               deselect( tree, oldobj );
  2352.               oldobj = obj = -1;
  2353.             }  
  2354.             }
  2355.             Action = -1;
  2356.  
  2357.             OldX = mk.x;
  2358.             OldY = mk.y;
  2359.             Evnt_timer( 0L );         /* Kludge to put in a delay 
  2360.                               * so that we can get a new mouse
  2361.                               * x,y with > 1 pixel difference
  2362.                               */
  2363.             Graf_mkstate( &mk );
  2364.     }while( !BSTATE );
  2365. abort:
  2366.        /* we've exited due to a button click, OR
  2367.         * we've entered one of the rectangles.
  2368.         * Let's see wot we've got.
  2369.         * If Action == -1, then the user clicked outside of
  2370.         * ANY rectangles and we should just exit and close
  2371.         * down all of the menus.
  2372.         */
  2373.        Graf_mkstate( &mk );
  2374.        obj = objc_find( tree, ROOT, MAX_DEPTH, mk.x, mk.y );
  2375.  
  2376.        /* Fix for when the submenu is displayed and we click
  2377.         * on its title to exit.
  2378.         */
  2379.        if(  xy_inrect( mk.x, mk.y, &wall ) &&
  2380.             SubPopPtr && MenuDragFlag && ( BSTATE == 1 ) )
  2381.         Action = 1;            
  2382.           
  2383.        event = FALSE;
  2384.        switch( Action )
  2385.        {
  2386.           case 0:  /* Entered the New Submenu, if there is one */
  2387.                if( SubPopPtr )
  2388.                {
  2389.                   /* need to check wot is returned...*/
  2390.                   result = EvntSubMenu( SubPopPtr );
  2391.                   if(( result == -1L ) || ( result != -2L ) )
  2392.                   {
  2393.                      obj = -1;
  2394.                      event = TRUE;
  2395.                      goto leave;
  2396.                   }
  2397.                   TempPtr = SubPopPtr;   
  2398.                   PPREV( SubPopPtr ) = ( POP_PTR )NULL;
  2399.                   HideSubMenu( SubPopPtr );
  2400.                   SubPopPtr     = ( POP_PTR )NULL;
  2401.                   MenuDragFlag  = FALSE;
  2402.               MenuDelayFlag = FALSE;
  2403.  
  2404.               Graf_mkstate( &mk );
  2405.                       obj = objc_find( tree, ROOT, MAX_DEPTH, mk.x, mk.y );
  2406.                   num = FindNum( PopPtr, obj );
  2407.                      if( ( obj != -1 ) && ( ActiveObj == obj ) &&
  2408.                          ( CmdFlag( PopPtr->CharPtr[ num ] ) == '~' ) &&
  2409.                          ( GetMenuPtr( CmdSubMenu( PopPtr->CharPtr[ num ] )) == TempPtr )
  2410.                        )
  2411.               {
  2412.                   if( !IsSelected( obj ) )
  2413.                 select( tree, obj );
  2414.  
  2415.                   if( ( SubPopPtr = DoSubMenu( PopPtr, obj )) != ( POP_PTR )NULL )
  2416.                         {
  2417.                           ActiveObj = obj;
  2418.                       SubRect = PObRect( SubPopPtr );
  2419.               ActiveTree( POBJECT( PopPtr ) );
  2420.                       PPREV( SubPopPtr ) = PopPtr;
  2421.                           MenuDragFlag       = TRUE;
  2422.                           DragStart          = TRUE;
  2423.                    wall = ObRect( obj );
  2424.                   objc_offset( tree, obj, &wall.g_x, &wall.g_y );
  2425.                     }  
  2426.               }
  2427.               else
  2428.                 ActiveObj = -1;
  2429.                }     
  2430.                  break;
  2431.                   
  2432.           case 1:  /* we are still in the current submenu...*/
  2433.                    /* The user click on an arrow button? */
  2434.                   if( (( BSTATE == 1 ) || ( BREAL == 1 )) && (( obj == PFIRST( PopPtr)  && strchr( ObString( obj ), UP_ARROW )) ||
  2435.                        (( obj == PLAST( PopPtr ) ) && strchr( ObString( obj ), DOWN_ARROW ))
  2436.                      )) 
  2437.                    {
  2438.                     if( Pop_Arrow( PopPtr, obj ) )
  2439.                       {
  2440.                  if( ( num = FindNum( PopPtr, obj )) != -1 )
  2441.                  {
  2442.                    if( CmdFlag( PopPtr->CharPtr[ num ] ) == '~' )
  2443.                    {
  2444.                      Supexec( GetTimeHz );
  2445.                      CurTimeHz     = TimeInHz;
  2446.                      MenuDelayFlag = TRUE;
  2447.                      MenuObject    = obj;
  2448.                    }  
  2449.                  }                
  2450.                       }
  2451.                   }
  2452.                   else
  2453.                   {
  2454.                      if( !SubPopPtr && MenuDelayFlag && ( MenuObject == obj ))
  2455.                      {
  2456.                        Supexec( GetTimeHz );
  2457.                        if( ( TimeInHz - CurTimeHz ) >= SUBMENU_DELAY )
  2458.                        {
  2459.                             MenuDelayFlag = FALSE;
  2460.                  if( !IsSelected( obj ) )
  2461.                       select( tree, obj );
  2462.  
  2463.                       if( ( SubPopPtr = DoSubMenu( PopPtr, obj )) != ( POP_PTR )NULL )
  2464.                      {
  2465.                        ActiveObj = obj;
  2466.                            SubRect   = PObRect( SubPopPtr );
  2467.                    ActiveTree( POBJECT( PopPtr ) );
  2468.                            PPREV( SubPopPtr ) = PopPtr;
  2469.                            MenuDragFlag       = TRUE;
  2470.                            DragStart          = TRUE;
  2471.                        wall = ObRect( obj );
  2472.                        objc_offset( tree, obj, &wall.g_x, &wall.g_y );
  2473.                          }     
  2474.                            
  2475.                        }    
  2476.                      }
  2477.                      else
  2478.                        MenuDelayFlag = FALSE;
  2479.                            
  2480.                      /* we are just in another menu item.
  2481.                       * If a submenu was displayed, hide it.
  2482.                       */
  2483.               if( SubPopPtr && ( ActiveObj != obj ) )
  2484.               {
  2485.                     PPREV( SubPopPtr ) = ( POP_PTR )NULL;
  2486.                         HideSubMenu( SubPopPtr );
  2487.                     SubPopPtr     = ( POP_PTR )NULL;
  2488.                 MenuDragFlag  = FALSE;
  2489.                 MenuDelayFlag = FALSE;
  2490.                     ActiveObj     = -1;
  2491.                   }
  2492.                   
  2493.                   /* if the buttons are down, they clicked on something*/
  2494.                   if(( BSTATE == 1 ) || ( BREAL == 1 ))
  2495.                   {
  2496.                       event = TRUE;
  2497.                       
  2498.                           obj = objc_find( tree, ROOT, MAX_DEPTH, mk.x, mk.y );
  2499.                           
  2500.                           CurMenu   = PMENUID( PopPtr );
  2501.                           CurObject = obj;
  2502.                           result    = 0L;
  2503.                   }
  2504.                   }
  2505.                  break;
  2506.                  
  2507.           case 2:  /* we have entered a previous submenu...  */
  2508.            result = -2L;
  2509.  
  2510.           case -1: /* we have clicked outside of ANY submenus.*/
  2511.                  if( Action == -1 )
  2512.                  {
  2513.                     /* don't exit if not a left button click */
  2514.                     if( BSTATE != 1 )
  2515.                       goto leave;
  2516.                  }
  2517.                  CurMenu = CurObject = -1;
  2518.           default: event = TRUE;
  2519.            obj    = -1;
  2520.                  break;
  2521.        }
  2522.  
  2523. leave:              
  2524.        if( event )
  2525.        {
  2526.           if( SubPopPtr )
  2527.           {
  2528.              PPREV( SubPopPtr ) = ( POP_PTR )NULL;
  2529.              HideSubMenu( SubPopPtr );
  2530.                SubPopPtr = ( POP_PTR )NULL;
  2531.           }
  2532.       done = TRUE;
  2533.        }     
  2534.  
  2535.    }while( !done );
  2536.  
  2537.          
  2538.    if(( obj != -1 ) && ( result != -2L ) && ( result != -1L ) )
  2539.    {
  2540.       result = 0L;
  2541.       result = ( int )PMENUID( PopPtr );
  2542.       result = ( result << 16L );
  2543.       
  2544.       if( !IsDisabled( obj ) )
  2545.         obj = FindNum( PopPtr, obj );
  2546.       else
  2547.         obj = -1;
  2548.       result |= ( obj & 0x0000FFFF );
  2549.    }
  2550.    return( result );
  2551. }
  2552.  
  2553.  
  2554.  
  2555. /* FindNum()
  2556.  * =====================================================================
  2557.  * Given the object #, find the adjusted index of the menu item.
  2558.  */
  2559. int
  2560. FindNum( POP_PTR PopPtr, int obj )
  2561. {
  2562.     int offset;
  2563.     
  2564.     offset = POFFSET( PopPtr );
  2565.     if( offset > 0 )
  2566.         offset -= 1;
  2567.     obj -= PFIRST( PopPtr );
  2568.     obj += offset;    
  2569.     return( obj );    
  2570. }
  2571.  
  2572.  
  2573.  
  2574.  
  2575. /* MenuChoice()
  2576.  * =====================================================================
  2577.  * Returns the CURRENT values of the menu and object clicked on.
  2578.  * Call ONLY after the PopMenuSelect() call has returned.
  2579.  */
  2580. long
  2581. MenuChoice( void )
  2582. {
  2583.    long value;
  2584.    POP_PTR PopPtr;
  2585.    int obj;
  2586.    
  2587.    value = 0L;
  2588.    value = ( int )CurMenu;
  2589.    value = ( value << 16L );
  2590.    
  2591.    if( CurMenu != -1 )
  2592.    {
  2593.       PopPtr = GetMenuPtr( CurMenu );   
  2594.       obj = FindNum( PopPtr, CurObject );
  2595.    }     
  2596.    else
  2597.       obj = -1;
  2598.    value |= ( obj & 0x0000FFFF );
  2599.    return( value );
  2600. }
  2601.  
  2602.  
  2603. /* END OF SUBMENU ROUTINES
  2604.  * =====================================================================
  2605.  */
  2606.  
  2607.  
  2608.  
  2609.  
  2610.  
  2611. /* SUBMENU DELAY ROUTINES
  2612.  * =====================================================================
  2613.  */
  2614.  
  2615. /* GetTimeHz()
  2616.  * =====================================================================
  2617.  * Gets the System time in 20ms ticks.
  2618.  */
  2619. long
  2620. GetTimeHz( void )
  2621. {
  2622.    long *ptr;
  2623.    
  2624.    ptr = ( long *)0x4BA;
  2625.    TimeInHz = *ptr;
  2626.    return( TimeInHz );
  2627. }
  2628.  
  2629.  
  2630.  
  2631.  
  2632. /* SetSubMenuDelay()
  2633.  * =====================================================================
  2634.  * Sets the length of time before a submenu appears as the user drags
  2635.  * the pointer thru a menu list.
  2636.  * The Units are in # of Milliseconds. ( 1000 = 1 second ).
  2637.  */
  2638. void
  2639. SetSubMenuDelay( long ms )
  2640. {
  2641.    if( ms < 0L )
  2642.        ms = INIT_DISPLAY_DELAY;
  2643.    if( ms )    
  2644.        ms /= 20L;     
  2645.    SUBMENU_DELAY = ms;
  2646. }
  2647.  
  2648.  
  2649.  
  2650.  
  2651. /* SetSubDragDelay()
  2652.  * =====================================================================
  2653.  * Sets the length of time the user has to drag diagonally, a pointer
  2654.  * to an active submenu before the submenu closes.
  2655.  */
  2656. void
  2657. SetSubDragDelay( long ms )
  2658. {
  2659.    if( ms < 0L )
  2660.        ms = INIT_DRAG_DELAY;
  2661.    if( ms )    
  2662.        ms /= 20L;
  2663.    SUBDRAG_DELAY = ms;
  2664. }
  2665.  
  2666.  
  2667. /* END OF SUBMENU DELAY ROUTINES
  2668.  * =====================================================================
  2669.  */
  2670.  
  2671.  
  2672.  
  2673. /* AdjustToScreen()
  2674.  * =====================================================================
  2675.  * Takes the Submenu XY and adjusts it so that it fits within
  2676.  * the screen area still. If there is an optional object, we will
  2677.  * adjust around that.
  2678.  * If we DO adjust, we'll try to get it on a byte boundary.
  2679.  * BOOLEAN byte_flag - a flag to align the xpos on a byte boundary.
  2680.  *                   - TRUE - YES!
  2681.  *             - NOTE: if the menu does not want byte adjusting
  2682.  *                 BUT it is off the screen, we will adjust
  2683.  *                 it back ONTO the screen on a byte boundary.
  2684.  *                 We just won't byte_adjust it if its already
  2685.  *                 on the screen in its entirety.
  2686.  * BOOLEAN Display_Flag; - a flag for vertical alignment of submenus.
  2687.  *             - When the submenu extends BELOW the bottom
  2688.  *               of the screen, there are 2 ways to adjust
  2689.  *               the menu.
  2690.  *             1)Adjust by displaying the menu upwards vertically
  2691.  *               from the rectangle button.
  2692.  *             2)Adjust by moving the menu upwards 1 gl_hchar
  2693.  *               at a time until the menu does not extend
  2694.  *               below the screen boundary.
  2695.  *             TRUE - Use Version 1
  2696.  *             FALSE - Use Version 2
  2697.  */
  2698. void
  2699. AdjustToScreen( POP_PTR PopPtr, int xpos, int ypos, GRECT *rect, BOOLEAN byte_flag, BOOLEAN Display_Flag )
  2700. {
  2701.     int temp;
  2702.     int position;
  2703.            
  2704.     /* Handle the X Coordinate Adjustments...
  2705.      *------------------------------------------------------------------
  2706.      */
  2707.     temp = xpos + PIX_WIDTH( PopPtr );
  2708.     if( temp > ( xres - 4 ))
  2709.     {
  2710.         if( !byte_flag )
  2711.         {
  2712.           temp -= ( xres - 4 );
  2713.           temp = ( temp + gl_wchar )/gl_wchar;
  2714.           temp *= gl_wchar;
  2715.           xpos -= temp;
  2716.         }
  2717.         else
  2718.         {
  2719.           xpos = rect->g_x - PIX_WIDTH( PopPtr );
  2720.           xpos = ( xpos + gl_wchar )/gl_wchar;
  2721.           xpos *= gl_wchar;
  2722.         }        
  2723.     }
  2724.     else
  2725.     {
  2726.         if( byte_flag )
  2727.         {
  2728.           xpos = ( xpos + ( gl_wchar - 1 ) )/gl_wchar;
  2729.           xpos *= gl_wchar;
  2730.         }     
  2731.     }
  2732.     
  2733.     /* Handle X limits < 0 */
  2734.     while( xpos <= 0 )
  2735.        xpos += gl_wchar;
  2736.     PXPOS( PopPtr )   = xpos;
  2737.     
  2738.  
  2739.     /* Handle the Y Coordinate Adjustments...
  2740.      *------------------------------------------------------------------
  2741.      */
  2742.     /* Calculates the Position so that the submenu start item 
  2743.      * is adjacent to the button that activated it.
  2744.      */
  2745.     position = ( PopUpItem( PopPtr ) + ( PNUM( PopPtr ) > PHEIGHT( PopPtr ) )) / PHEIGHT( PopPtr );
  2746.     if( position )
  2747.     {
  2748.        position = PopUpItem( PopPtr );
  2749.        temp = PNUM( PopPtr ) - PHEIGHT( PopPtr ) + 1;
  2750.  
  2751.        if( position  >= temp )
  2752.            position   = temp;
  2753.        position -= 1;    
  2754.     }      
  2755.     position = PopUpItem( PopPtr ) - position;
  2756.     ypos = ypos - ( position * gl_hchar );
  2757.  
  2758.     
  2759.     /* Calculates a new position if the submenu exceeds the
  2760.      * height of the screen.
  2761.      */        
  2762.     temp = ypos + PIX_HEIGHT( PopPtr );
  2763.     if( temp > ( yres - 4 ))
  2764.     {
  2765.        if( Display_Flag )
  2766.           ypos = ypos - ( (PHEIGHT( PopPtr ) - position - 1 )* gl_hchar );        
  2767.        else
  2768.        {
  2769.           do
  2770.           {
  2771.              ypos -= gl_hchar;
  2772.              temp = ypos + PIX_HEIGHT( PopPtr );
  2773.           }while( temp > ( yres - 4 ) );
  2774.        }
  2775.     }
  2776.     
  2777.     while( ypos <= ( gl_hchar + ( gl_hchar/2 ) ))
  2778.        ypos += gl_hchar;
  2779.        
  2780.     PYPOS( PopPtr )   = ypos;
  2781. }
  2782.  
  2783.  
  2784.  
  2785.  
  2786. /* WaitForUpButton()
  2787.  * =====================================================================
  2788.  * Waits for an up button.
  2789.  */
  2790. void
  2791. WaitForUpButton( void )
  2792. {
  2793.   MRETS mk;
  2794.   
  2795.   do
  2796.   {
  2797.      Graf_mkstate( &mk );
  2798.   }while( mk.buttons );
  2799. }
  2800.  
  2801.  
  2802.